Question

вывести все чётные числа из диапазона от а до b, а и b водяться с клавиатуры
через Паскаль решить
буду благодарна​

Answer 1

Объяснение:

Program zero;

Var a, b: Real; i:Integer;

Begin

Whiteln('Введите диапазон: ');

Readln(a, b);

Whiteln('Чётные числа!!!');

For i:=a to b do

If i mod 2 = 0 then

Write(i, ' ');

Readln

End.