Программа:
Pascal:
var
n, i, summ: integer;
begin
while summ < 1890 do begin
i := i + 5;
summ := summ + i;
inc(n);
end;
writeln(n);
end.
Результат: 27
Программа:
Pascal:
var
n, i, summ: integer;
begin
while summ < 1890 do begin
i := i + 5;
summ := summ + i;
inc(n);
end;
writeln(n);
end.
Результат: 27