Выводить числа в порядке убывания от 10 до 1

Паскаль. Задачи со счетчиком

Нужен текст программы со всеми var begin end итд

делать через while

Question

Флойд

23 марта, 16:26

+5

Ответы (1)

Знаете ответ на вопрос?

Ауади · Answer 1

Var a:integer;

begin

a:=10;

while a>=1 do

begin

writeln (a) ;

a:=a-1

end

end.

Выводить числа в порядке убывания от 10 до 1Паскаль. Задачи со счетчикомНужен текст программы со всеми var begin end итдделать через while