0+1 = 1
1*2 = 2 (или 1+1 = 2)
2+1 = 3
3*2 = 6
6*2 = 12
12*2 = 24
24+1 = 25
25*2 = 50
Дробное значение же получается.
1024х2 = 2048
1024 * 0.2 = 204.8
итого 2252,8 ....
как-то некорректно выходит
Var
a,b:integer;
begin
Write('вводите a,b: ');
Read(a,b);
if a>b then Writeln('Первое число больше')
else
if a<b then Writeln('Второе число больше')
else Writeln('Числа равны')
end.
<em>// PascalABC.NET 3.2, сборка 1467 от 02.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(0.5,4.0,7).Select(x->(x,Power(x+1,3)-2))
.ForEach(x->Writeln(x[0]:4:2,x[1]:10:3))
end.
<u>Результат</u>
0.50 1.375
1.00 6.000
1.50 13.625
2.00 25.000
2.50 40.875
3.00 62.000
3.50 89.125
4.00 123.000