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

Ответы 1

  • //PascalABC.NET версия 3.3.5begin  var x, first, count: integer;  count := 0;  read(first);  x := first;  while(x <> 0) do  begin    read(x);    if((x mod first = 0) and (x <> 0)) then count += 1;  end;  write(count);end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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