Question

ПОМОГИТЕ!
Составьте программу , которая выводит последовательность 50,48,46,44……2
И ЕЩЁ,ТУТ НУЖЕН ЦИКЛ downto ИЛИ ПРОСТО to?Я НЕ ПОНИМАЮ.
Главное сделайте через For i := 1 to n do begin.

Answer 1

Ответ:

var i:integer;

Begin

for i:= 50 downto 2 do

if (i mod 2) = 0 then write(i, ' ');

End.