Задать вопрос Регистрация
Помочь другим

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

Ответы 1

  • var    num, sum: integer;begin    repeat        readln(num);        if (num mod 4 = 0) and (num mod 10 = 6) then sum := sum + num;    until num = 0;    writeln(sum);end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years