Question

сколько пар чисел нужно сложить чтобы сумма получилась больше 300? программа в паскале

Answer 1

                                              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.