Найти сумму целых положительных чисел, больших 20,меньших 120 и кратных 9 и не заканчивающих на 5

Обозначим буквой s искомую сумму, а буквой i – значения чисел, больших 20 и меньших 120. Таких чисел будет несколько, поэтому в программе будем использовать оператор цикла с параметром for. Тогда программа на языке Pascal ABC будет иметь вид:

program zadacha;

uses crt;

var s, i :integer;

begin

s:=0; {Начальное значение суммы s }

for i := 21 to 119 do

if (i mod 9=0) and (i mod 10<>5) {Проверка чисел на кратность 9 и на то, что они не заканчиваются на 5}

then s:=s+i; {Суммирование чисел, удовлетворяющих условию задачи}

write('s=', s); {Вывод результата суммы s на экран}

END.

Ответ: s=747