Составьте программу выводящую ** экран в первую строку - нечетные числа от 35 до 47 через...

Question

Составьте программу выводящую на экран в первую строку - нечетные числа от 35 до 47 через точку с запятой а во вторую строку - четные числа от 18 до 54

Answer 1

Var i: integer;
 begin
  for i := 35 to 47 do
    if(i.IsOdd) then write(i, '; ');
  writeln;
  for i := 18 to 54 do
    if(i.IsEven) then write(i, '; ');
end.