Урок 13.1 Задача 7

Урок 13.1 Задача 7

Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.

Решение:

program u13z07;
var i,j: integer;
begin
  i:=1;
  while i>0 do
  begin
    writeln('vvedite chislo');
    readln(i);
    if i>0 then
    begin
      for j:=1 to i do
        if j mod 2 = 0 then
        begin
          write(j,' ');
          writeln();
        end;
      end
    else
      writeln('ERROR');
  end;
  readln();
end.

Консоль:

vvedite chislo
10
2 4 6 8 10
vvedite chislo
7
2 4 6
vvedite chislo
-1
ERROR