Напишите программу, которая в последовательности натуральных чисел находит количество чисел которые делятся на первый элемент последовательности.
Вход: Программа получает на вход последовательность натуральных чисел, заканчивающихся на 0. Кол-во чисел не превышает 1000, а сами числа не превышают 30000
Выход: программа должна вывести одно число- количество чисел, которые делятся на первый элемент.
Вход: Программа получает на вход последовательность натуральных чисел, заканчивающихся на 0. Кол-во чисел не превышает 1000, а сами числа не превышают 30000
Выход: программа должна вывести одно число- количество чисел, которые делятся на первый элемент.
More Questions From This User See All
Answers & Comments
begin
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.