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.