Написать программу которая выводит ** экран все отрицательные четные числа из диапазона a...

Question

Написать программу которая выводит на экран все отрицательные четные числа из диапазона a и b на паскале ​

Answer 1

program Vyv;

var a,b,i:integer;

begin

write('Введите начало диапазона a = ');

readln(a);

write('Введите конец диапазона b = ');

readln(b);

for i:=a to b do

if (i<0) and (i mod 2 = 0) then write(i,' ; ')</p>

end.

Comments

Класс.Как так быстро пишешь.Для меня это темный лес.