Question

Составьте программу которая определяет, сколько слагаемых должно быть в сумме 1+2+3+4... чтобы сумма оказалась
а)больше 20
В КУМИРЕ ПОЖАЛУЙСТА

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.