Определите, при каком наибольшем положительном введённом значении переменной s программа выведет трёхзначное число. var s, n: integer;
begin
readln (s);
n := 200;
while s div n >= 2 do
begin
s := s + 5;
n := n + 5
end;
writeln(s)
end.​

Lups    3   02.12.2020 23:26    115