напишите программку которая в последовательности натуральных чисел кратных 6 и заканчивающихся

Напишите программку которая в последовательности натуральных чисел кратных 6 и оканчивающихся на 6. Программка получает на вход естественные числа, колчество введённых чисел неизевстно, последовательность чисел кончается числом 0. Количество чисел не привышает 100. Введённые числа не привышают 200. Программка должна вывести одно число: сумму всех чисел, кратных 6 и оканичвающихся на 6

Задать свой вопрос
Данил Ласовский
PascalABC.NET?
1 ответ

//PascalABC.NET

begin

 ReadSeqIntegerWhile(x -gt; x lt;gt; 0).Where(x -gt; (x mod 10 = 6) and (x mod 6 = 0)).Sum.Print;

end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт