Напишите программу, которая вводит натуральное число N и выводит первые N чётных натуральных чисел. Входные данные Входная строка содержит единственное число – требуемое количество чисел N . Выходные данные Программа должна вывести в одну строчку N первых чётных натуральных чисел, разделив их пробелами. Примеры: входные данные 5 выходные данные 2 4 6 8 10 !!! ЯЗЫК PascalABC !!! !!! Без while, a через for !!!
var N, i, count: integer; begin readln(N); count := 0; for i := 1 to 2 * N do begin if i mod 2 = 0 then begin write(i, ' '); count := count + 1; end; if count = N then break; end; end.
var
N, i, count: integer;
begin
readln(N);
count := 0;
for i := 1 to 2 * N do
begin
if i mod 2 = 0 then
begin
write(i, ' ');
count := count + 1;
end;
if count = N then
break;
end;
end.