Ответы
Ответ дал:
0
PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var (s, ss, k) := (ReadInteger('s='), 0, 3);
while ss <= s do
begin
ss += k;
k+=2
end;
ss.Println
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
8 лет назад