Question

Написать программу на Паскале , не используя массивов Выведи на экран все четные числа от 2 до n включительно и посчитайте их количество ​

Answer 1

Ответ:

Объяснение:

var N, k, i : integer;

begin

 write('введите границу');

 read(N);

 k:=0;

 for i:=2 to N do

   if i mod 2=0 then

     begin

     writeln(i);

     k:=k+1;

     end;

 writeln('четных чисел ',k);    

end.

Answer 2

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

pascalCopy code
program EvenNumbers;

var
  n, count, num: integer;

begin
  writeln('Enter a value for n: ');
  readln(n);

  count := 0;
  num := 2;  // Start with the first even number

  writeln('Even numbers from 2 to ', n, ': ');

  while num <= n do
  begin
    writeln(num);
    count := count + 1;
    num := num + 2;  // Move to the next even number
  end;

  writeln('Total count of even numbers: ', count);
end.

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