Question

составьте программу,которая определяет,сколько слагаемых должно быть в сумме 1+2+3+4.....,чтобы сумма оказалась: а)больше 20; б)больше заданного числа n;

Answer 1

program ddd;
var i,n,s,k:integer;
begin
write('Введите n: ');
readln(n);
s:=0; k:=0;i:=1;
while s<=n do
begin
s:=s+i;
writeln(i);
inc(i);
inc(k);
end;
writeln('Необходимо ',k,' слагаемых; сумма равна ',s );
end.