Напишите программу, которая в последовательности натуральных чисел находит количество чисел которые делятся на первый элемент последовательности. Вход: Программа получает на вход последовательность натуральных чисел, заканчивающихся на 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.
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
Отв. дан
Bagda
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Zagra
Ребят, Подскажите как пожалуйста с информатикой очень срочно задача ...
2018-10-23 01:31:19
Shalar
В аэробусе, вмещающем 160 пассажиров, три четверти мест находятся ...
2018-10-23 01:29:50
Варвара
Подскажите как, пожалуйста, решить ...
2018-10-23 01:27:45
Cekus
Подскажите как пожалуйста . описать обьекты в данном проэкте, ...
2018-10-23 01:27:30