Регистрация Вход
Информатика 10 - 11 классы Gholbimand
Решено

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

226
ОТВЕТЫ
//PascalABC.NET версия 3.3.5

begin
  var x, first, count: integer;
  count := 0;
  read(first);
  x := first;
  while(x lt;gt; 0) do
  begin
    read(x);
    if((x mod first = 0) and (x lt;gt; 0)) then count += 1;
  end;
  write(count);
end.
13
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте