Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 6 или 11. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: количество чисел, кратных 6 или 11.
Chelovek987654321
3
24.09.2019 07:20
2
Другие вопросы по теме Информатика
Стивен12
04.07.2019 04:40
МариКэт1
04.07.2019 04:40
Данька0007
04.07.2019 04:40
святославовна
04.07.2019 04:40
elenakopylova7
04.07.2019 04:50
annattarsova0
04.07.2019 04:50
рома1344
04.07.2019 04:50
Milkiskiss
04.07.2019 04:50
Димончик111111
04.07.2019 04:50
Популярные вопросы
- 2/3(1 1/2х+3/5)- 4/5(5/12х-1/2)=1 3/5 решите ! надо...
1 - Текст про некоторые люди не любят учиться...
1 - Пропущеное число-3 равно 5какое пропущенное число...
2 - Сочинение рассуждение по языку на тему каким быть...
2 - Учеловека ген глухонемоты-рецессивный,а ген нормального слуха-доминантный.глухонемая...
1 - Длина отреза 85 м. продали 1/5 этого куска. сколько метров материи осталось...
2 - Вкаждой зоне написать растения,животных,людей что они делают...
3 - Представьте в виде многочлена стандартного вида (x+2)^2=? (2a+3b)^2=?...
2 - Определите расстояние точки а(-6; 3; 4) до оси y и плоскости xz...
1 - Каково назначение дисплейного процессора...
3
N = 30;
var
a:array [1..N] of longint;
I, j, k: longint;
begin
for i:=1 to N do
Readln(a[i]);
k:=0
for i:=0 to N do
begin
if (a[i]mod6=0) or (a[i]mod11=0) and (a[i]<>0) then
inc(k);
writeln(k)