Odpowiedź:
program nr3;
uses crt;
var a,n,k,suma:integer;
begin
clrscr;
write('Podaj liczbe n: ');
read(n);
suma:=0;
a:=0;
k:=0;
repeat
a:=a+1;
k:=k+1;
suma:=suma+a;
until(suma>=n);
if suma>n then
k:=k-1;
write('Trzeba bylo zsumowac ',k,' kolejnych liczb');
readkey;
end.
Wyjaśnienie:
Z pamięci więc może nie być w 100% dobre
