Question

Помогите пожалуйста,распечатать на паскале первые nчетных чисел,заранее пасибо

Answer 1

Var a:array[1..100] of integer;
n:integer;
begin
readln(n);
for i:=1 to 2*n do
if a[i] mod 2 =0 then writeln(a[i]);
end.

Answer 2

Конечно, я могу помочь вам написать программу на языке Pascal, которая выводит первые n четных чисел. Вот пример кода:

program PrintEvenNumbers;

var
  n, count, number: integer;

begin
  // Вводим количество четных чисел, которые нужно вывести
  write('Введите количество четных чисел: ');
  readln(n);

// Инициализируем переменные
  count := 0;
  number := 2; // Начинаем с первого четного числа

// Выводим первые n четных чисел
  writeln('Первые ', n, ' четных чисел: ');

while count < n do
  begin
    writeln(number);
    number := number + 2; // Переходим к следующему четному числу
    count := count + 1;
  end;

end.

В этом примере программа запрашивает у пользователя количество четных чисел, которые нужно вывести, затем с помощью цикла while выводит соответствующее количество четных чисел, начиная с 2 и увеличивая число на 2 на каждом шаге.

Вы можете скопировать этот код в среду разработки Pascal (например, Free Pascal) и выполнить программу, чтобы увидеть результат. Надеюсь, это поможет! Если у вас есть какие-либо вопросы или нужна дополнительная помощь, дайте знать.