OpenFIPI 2.0
1152
6
oge_658D06
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 8. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 –– признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 6 оканчивающихся на 8.
Пример работы программы:
|
Входные данные |
Выходные данные |
|
18 |
66 |
PascalABC.NET 3.8.3 ## var a:=1; var c:=0; while a<>0 do begin read(a); if (a mod 6=0) and (a mod 10=8) then c:=c+a; end; print(c)
g=0 while True: h=int(input()) if h%6 == 0 and h%10 ==8: g += h if h==0: break print(g)
count = 0 n = 1 while n != 0: n = int(input()) if n % 6 == 0 and n % 10 == 8: count += n print(count)
PascalABC.NET 3.8.3 ## var a:=1; var c:=0; while a<>0 do begin read(a); if (a mod 6=0) and (a mod 10=8) then c:=c+a; end; print(c)
g=0 while True: h=int(input()) if h%6 == 0 and h%10 ==8: g += h if h==0: break print(g)
count = 0 n = 1 while n != 0: n = int(input()) if n % 6 == 0 and n % 10 == 8: count += n print(count)
Просмотреть отправленные ответы oge_658D06