Переделайте эту программу с цикла repeat. var s, n: integer;
begin
s:= 72;
n:= 0;
while n < =10 do
begin
s:= s – 8;
n:= n + 3;
end;
writeln(s);

Настя0857    1   28.10.2021 22:41    2