Составить программу нахождения суммы трехзначных чисел кратных 5 и 7 и 9
Ответы:
23-10-2017 02:22
//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
Также наши пользователи интересуются:
Какие пластиды входят в состав клетки ростенийПомогите кто знает как оформить проект по технологии 5 класс?
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Составить программу нахождения суммы трехзначных чисел кратных 5 и 7 и 9» от пользователя POLYA LESCHENKO в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!