1) Написать программу вывода всех четных чисел от 2 до 1000 включительно2) Написать программу определяющую сумму всех нечетных чисел от 1 до 99

program zad1;

var i:integer;

begin

for i:=1 to 1000 do

if i mod 2 = 0 then write (i,' ');

end.

перебираем все числа от 1 до 1000 включительно и у каждого числа спрашиваем, если оно делится на 2, то выводим его на экран.

program zad2;

var i, sum:integer;

begin

for i:=1 to 99 do

if i mod 2 = 1 then sum:=sum+i;

write (sum);

end.

перебираем все числа от 1 до 99 включительно и у каждого числа спрашиваем, если оно не делится на 2, то прибавляем его к сумме.