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

Question

Сина

3 июля, 14:57

+2

Ответы (1)

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

Юраха · Answer 1

Var i:integer;

begin

for i:=1 to 30 do

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

writeln;

for i:=10 to 20 do

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

end.