Question

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

Answer 1

Var a:integer;
begin
a:=0;
while a<20 do
 begin
 a:=a+2;
 write(a,'  ');
 end;
end.

Результат:
2  4  6  8  10  12  14  16  18  20