Составить программу нахождения суммы трехзначных чисел кратных 5 и 7 и 9

286

352

Посмотреть ответы 2

Ответы на вопрос:

ренатка6

Информатика

4,7(40 оценок)

//pascal abc.net v3.1 сборка 1172 //продвинутый вариант begin writeln(range(100,999).where(x -> x mod 7=0).where(x -> x mod 9=0).where(x -> x mod 5=0).sum); end. //"школьный" вариант var i,s: integer; begin for i: =100 to 999 do if (i mod 5=0) and (i mod 7=0) and (i mod 9=0) then s: =s+i; writeln(s); end. вывод: 1890