Выводить числа в порядке убывания от 10 до 1
Паскаль.Задачи со счетчиком
Нужен текст программы со всеми var begin end итд
делать через while
Ответы
Ответ дал:
0
var a:integer;
begin
a:=10;
while a>=1 do
begin
writeln(a);
a:=a-1
end
end.
begin
a:=10;
while a>=1 do
begin
writeln(a);
a:=a-1
end
end.
Похожие вопросы
2 года назад
8 лет назад
9 лет назад