нам это тоже задовали под буквой А я тож не знаю,а вот под буквой Б напишу
program prim;
var i,sum,n,x : integer;
begin
write('n = ');
readln(n);
x:=2;
sum:=2;
i:=1;
while sum<=n do
x:=x+2;
i:=i+1;
sum:=sum+x;
end;
writeln(i,'слагаемых');
end.
нам это тоже задовали под буквой А я тож не знаю,а вот под буквой Б напишу
program prim;
var i,sum,n,x : integer;
begin
write('n = ');
readln(n);
x:=2;
sum:=2;
i:=1;
while sum<=n do
begin
x:=x+2;
i:=i+1;
sum:=sum+x;
end;
writeln(i,'слагаемых');
end.