Question

а) Составьте программу, выводящую на экран числа от 1 до 10 в одну строку
через пробел.
б) Составьте программу, выводящую на экран числа от 10 до 1 в одну строку
в порядке убывания.​

Answer 1

Ответ:

а)

program z1;

var i:integer;

begin

for i:=1 to 10 do write(i,' ')

end.

б)

program z2;

var i:integer;

begin

for i:=10 downto 1 do write(i,' ')

end.

Объяснение:

Цикл for ... to ... do - шаг +1

Цикл for ... downto ... do - шаг -1

write - вывод без перехода на новую строку