Вопрос, который вызвал трудности
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
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.
-----------------------
//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.