При каком наименьшем введенном числе d после выполнения программы будет напечатано 121?

Question

При каком наименьшем введенном числе d после выполнения программы будет напечатано 121?

Comments

Какой программы?

---

var n,s,d: integer; begin. readln(d);n:=1 s:=46; while s <= 2700 do begin s:=s+d; n:=n+4 end; write(n) end.

Answer 1

89
-----------------------

//Pascal
//Проверочная программа

var n,s,d: integer;
begin
d := 0;
while n <> 121 do
begin
n := 1; s := 46; d := d + 1;
while s <= 2700 do <br>begin
  s:=s+d;
  n:=n+4;
end;
  writeln(d, ' ',n);
end;
end.