1) Вывести на экран все трехзначные числа кратные 502) Найти сумму нечетных чисел от 100 до 150 На паскале

program zz1;

var i, s:integer;

begin

for i:=100 to 999 do / /заводим цикл для всех трехзначных чисел

if i mod 50 = 0 then write (i:5); / /проверяем, если число делится на пятьдесят, то выводим его на экран

writeln; //переход на новую строку для вывода ответа

for i:=100 to 150 do//заводим цикл для чисел от ста до 150

if i mod 2 = 1 then s:=s+i; //проверяем, если число не делится на 2, то добавляем его в сумму

write ('сумма нечетных чисел от 100 до 150 = ', s); / /выводим ответ

end.