Регистрация
lolloool2017
27.12.2021 01:17
Информатика
Есть ответ 👍

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

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

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

barbara27
barbara27
4,4(8 оценок)

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.

coolvikusa46
coolvikusa46
4,7(79 оценок)

3: f: text. message TOOIS

Популярно: Информатика