• Напишите программу которая в последовательности натуральных чисел определяет количество всех чисел, кратных 6 и оканчивающихся на 0.
    Программа получает на вход натуральные числа, кол-во введенных чисел неизвестно, последовательность чисел оканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). Кол-во чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число: кол-во всех чисел последовательности, кратных 6 и оканчивающихся на 0.

Ответы 1

  • Program n1;var a,k: integer;beginreadln(a);k:=0;while a<>0 dobeginif (a mod 6=0) and (a mod 10=0) thenk:=k+1;readln(a);end;writeln(k); end.
    • Автор:

      coachoobj
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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