Question

Напечатать четные, натуральные числа , не превышающие N.N ввести с клавиатуры. Программа в паскаль.

Answer 1

program raf105;

var i,n: integer;

begin

write('Введите N: ');

readln(n);

for i:=1 to n do

 if i mod 2 = 0

   then writeln(i);

end.

PascalABC 3.4.2

Answer 2

Для написания программы на Pascal, которая выводит четные натуральные числа, не превышающие заданное значение N, нужно использовать цикл и условие. Вот пример кода:

pascalCopy code
program EvenNumbers;

var
  N, i: integer;

begin
  writeln('Введите число N:');
  readln(N);

  writeln('Четные числа, не превышающие N:');
  for i := 2 to N do
  begin
    if i mod 2 = 0 then
      writeln(i);
  end;
end.

Скопируйте код выше в среду разработки Pascal (например, Free Pascal), скомпилируйте и запустите программу. После запуска она запросит ввод значения N с клавиатуры и затем выведет все четные натуральные числа, не превышающие N.