Ирина
7 год назад
Решите пожалуйста задачу для Pascal ABC 8класс
ОТВЕТЫ
Пармен
Jul 24, 2019
Можно сделать по-другому (короче), просто функцию забыл :D
var x:byte;
begin
x:=51;
Repeat x:=x-2;
write( ,x);
Until xlt;=1;
end.
var x:byte;
begin
x:=51;
Repeat x:=x-2;
write( ,x);
Until xlt;=1;
end.
35
Смежные вопросы:
