Решите пожалуйста задачу для Pascal ABC 8класс
Решите пожалуйста задачу для Pascal ABC 8класс
Гость
Ответ(ы) на вопрос:
ГостьМожно сделать по-другому (короче), просто функцию забыл :D
var x:byte;
begin
x:=51;
Repeat x:=x-2;
write(' ',x);
Until x<=1;
end.
Не нашли ответ?
Похожие вопросы