Ответ №1
Можно сделать по-другому (короче), просто функцию забыл :D
var x:byte;
begin
x:=51;
Repeat x:=x-2;
write(' ',x);
Until x<=1;
end.
Ответ №1
Можно сделать по-другому (короче), просто функцию забыл :D
var x:byte;
begin
x:=51;
Repeat x:=x-2;
write(' ',x);
Until x<=1;
end.
Знаете ответ?