Напечатать минимальное четное число, большее введенного N, которое является квадратом....

Question

Напечатать минимальное четное число, большее введенного N, которое является квадратом. (Pascal)

Answer 1

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var n:=ReadInteger('n=');
  var m:=Trunc(sqrt(n));
  if Odd(m) then Inc(m);
  while sqr(m)<=n do m+=2;<br>  Writeln(sqr(m),' = ',m,' * ',m)
end.

Тестовое решение:
n= 4563242
4571044 = 2138 * 2138

Comments

while sqr(m)<n do m+=2;

---

что значит m+=2?

---

Замените на m:=m+2, если Вам незнакома эта возможность ПаскаляABC

---

И там описка в условии while была, исправил