Ответы на вопрос:
var i: word; переменная через которую будут проходить все трехзначные цифры s: longint; переменная для хранения суммыbegins: =0; -обнуляем переменную где будем сохранять суммуwrite('числа: '); for i: =100 to 999 do начинаем перебор всех трехзначных цифрif i mod 2 = 0 then проверка на четность, мод - это деление по остатку,т.е в ответ записывается остаток от деления if i mod 7 = 0 then begin write(i,' '); s: =s+i; end; выводим четное число кратное 7 и в тоже время суммируем его с последующими четными кратных 7ми, в переменной swriteln; пропускаем строкуwriteln('сумма всех всех четных трехзначных чисел, которые делятся на 7 = ',s); выводим на экран результатend.
Популярно: Информатика
-
Добрыйдемон1311.12.2020 02:24
-
Ильяна11130.11.2022 04:04
-
ayala04112.01.2022 16:54
-
alinamalinachka07.07.2020 11:08
-
vasiletseri01.10.2021 01:25
-
Limon4ikShow08.01.2023 14:44
-
777angel777likoy8mjs17.02.2021 10:17
-
Викторина2216.05.2023 04:38
-
neponyatkiii12.08.2020 06:00
-
KapitanNEMO03.01.2021 01:23