Предмет: Информатика,
автор: 59Easy159
напишите программу которая в последовательности натуральных чисел кратных 6 и оканчивающихся на 6. Программа получает на вход натуральные числа, колчество введённых чисел неизевстно, последовательность чисел заканчивается числом 0. Количество чисел не привышает 100. Введённые числа не привышают 200. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканичвающихся на 6
pusaxe:
PascalABC.NET?
Ответы
Автор ответа:
1
//PascalABC.NET
begin
ReadSeqIntegerWhile(x -> x <> 0).Where(x -> (x mod 10 = 6) and (x mod 6 = 0)).Sum.Print;
end.
Интересные вопросы
Предмет: Русский язык,
автор: satim34
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: daniyar137810
Предмет: Математика,
автор: 12354za31