Question

программа на Pascal результатом выполнения которой будет n чётных натуральных чисел, выведенных в столбец. Задание для 8 класса информатика​

Answer 1

program EvenNumbers;

var

 n, i, evenNumber: integer;

begin

 // Введите количество чётных чисел, которые вы хотите вывести

 write('Введите количество чётных чисел: ');

 readln(n);

 // Проверка, чтобы убедиться, что n положительное число

 if n <= 0 then

 begin

   writeln('Пожалуйста, введите положительное число.');

   exit;

 end;

 writeln('Первые ', n, ' чётных натуральных чисел:');

 // Используем цикл для генерации и вывода чётных чисел

 evenNumber := 2; // начинаем с первого чётного числа

 for i := 1 to n do

 begin

   writeln(evenNumber);

   evenNumber := evenNumber + 2; // переходим к следующему чётному числу

 end;

end.