Предмет:
ИнформатикаАвтор:
анонимОбозначим буквой 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
Автор:
ezekielaustinДобавить свой ответ