паскаль

[xswxsw]

составьте программу вычисления кол-ва слагаемых у выражения
20/3 +40/5+80/7+160/9......
складывать пока сумма не станет больше N.
program mm;
var sum,c: real;
i,N,x,b:integer;
begin
b:=20;
x:=3;
i:=1;
sum:=0;
c:=b/x;
readln (N);
while sum>N do
begin
c:=b/x; b:=b*2; x:=x+2;
sum:=sum+c; i:=i+1;
end;
writeln (sum);
end.


N-вводить 64.
что тут не так???

[Stilet]

Условие. while sum<N do нужно.

[xswxsw]

нет, получается не целое число

[Leshii]

А округлить к примеру не пробовали?

[Mad_Cat]

кол-ва слагаемых

writeln (i-1);