давно
Старший Модератор
31795
6196
19.10.2020, 10:03
общий
это ответ
Здравствуйте, colpo99!
Смотри код:
[code lang=pascal]var
y:integer;
begin
y:=8;
repeat
dec(y,2);
until y<=3;
writeln(y:8);
end.[/code]
Ответ 2
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.