Найдем первое число из данного диапазона, кратное семи.
100 / 7 = 14 и остаток 2.
100 + (7-2) = 105. (можно найти это число и другими путями).
И теперь задача сводится к нахождению суммы чисел последовательности 105, 112, ... где последнее число не превышает 200,
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
Writeln('S=',Range(105,200,7).Sum)
end.
<u><em>Тестовое решение:</em></u>
S=2107
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadlnInteger)
.Where(t->(t mod 6=0) and (t mod 10=4)).Count.Println
end.
Ответ:
95.625 КБ
Объяснение:
Пусть символ компьютерного алфавита весит 1 байт. Вычислим количество символов в сообщении.
34 * 60 * 48 = 97920
Сообщение весит 97920 байт = 95.625 КБ.
n = int(input('Введите число: '))
sum = 0
while n != 0:
a = n % 10
if a == 5:
sum += a
n //= 10
print('Сумма пятёрок:',sum)