(ИЗИ-ИЗИ ЗАДАНИЕ, 18 БАЛЛОВ!) Напишите программу вывода всех четных чисел в диапазоне от...

Question

(ИЗИ-ИЗИ ЗАДАНИЕ, 18 БАЛЛОВ!) Напишите программу вывода всех четных чисел в диапазоне от 2 до 100 включительно. (ЧЕРЕЗ REPEAT)

Answer 1

program raf105;

var a,b:integer;

begin

a:=1;

repeat

a:=a+1;

if (a mod 2)=0

 then b:=b+1;

until a=100;

writeln('Вывод: ',b);

end.

Язык программирования PascalABC