Var s, n: integer; begin
s:= 0;
n := 76;
while s<71 do
begin
s:=s +8;
n:=n-3
end;
writeln(n)
end.

виолетта409    3   29.04.2021 07:21    8