Вывести экран все четные значения в диапазоне - вопрос №1814456 от pminikrolik 08.01.2021 08:30

Question

Информатика: Вывести экран все четные значения в диапазоне от a до b

pminikrolik · Answer

program raf105;

var

i,a,b: integer;

begin

write('Введите 2 числа (начало и конец диапазона): ');

readln(a,b);

for i:=a to b do

writeln(i);

end.

PascalABC 3.4.2