151 и 151? или как ты имеешь ввиду?
PascalABC.NET
begin
var (x,y) := (0,0);
while x < 300 do begin
x+=y+y;
y+=1;
Print(x);
end;
writeln;
Writeln('ответ: ',y);;
end.
151 и 151? или как ты имеешь ввиду?
PascalABC.NET
begin
var (x,y) := (0,0);
while x < 300 do begin
x+=y+y;
y+=1;
Print(x);
end;
writeln;
Writeln('ответ: ',y);;
end.