Отыскать сумму целых положительных чисел, огромных 20,наименьших 120 и кратных 9

Обозначим буковкой 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 10lt;gt;5) Проверка чисел на кратность 9 и на то, что они не кончаются на 5

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

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

END.

Ответ: s=747