Question

Срочно! 18 баллов! Pascal!!! составить программу, используя цикл while do. Вывести числа в следующем порядке 2,4,6,8,10...20.

Answer 1

Program pr;
uses crt;

Var a:integer;
Begin
a:=2;
While a<=20 do
   Begin
      Writeln(a);
      a:=a+2;
    end;

readln;
end.

Answer 2

Var a:integer;
 Begin
  a:=2;
  While a<=20 do
   Begin
     Writeln(a);
      a:=a+2;
    end;
 End.