Определите, при каком наименьшем введённом значении переменной s программа выведет число 15. var s, n: integer;
begin
readln(s);
n := 5;
while s < 110 do begin
s := s + n;
n := n + 1
end;
writeln(n)
end.

Найк2006    1   12.11.2020 20:22    396