Напишите программку, которая в последовательности целых чисел определяет количество чисел,

Question

Напишите программку, которая в последовательности целых чисел определяет количество чисел,

Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 6 или 11. Программка получает на вход целые числа, количество введённых чисел безызвестно, последовательность чисел кончается числом 0 (0 признак окончания ввода, не заходит в последовательность).
Количество чисел не превышает 1000. Введённые числа не превосходят
30 000.
Программка обязана вывести одно число: количество чисел, кратных 6 либо 11.

Задать свой вопрос

Пашка Малунцев
Информатика
2019-08-02 00:51:38
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Две машинистки за 2 часа 10 минут напечатали 20 листов. Поначалу

отыскать геометрическую прогрессию если сумма первых 3-х членов одинакова 7 а

если 40% числа равны

Напишите уравнение реакции взаимодействия 1)2,5- диаминопентановой кислоты и соляной

напишите сказку про присливник и его роль у мовленни (это на

сделайте пж 1 французский язык

Вписанный угол ABC равен 32.отыскать величину угла ADC.ответ в градусах

Какие советы дает В. Астафьев, чтоб не заплутаться в лесу? Какие

Помогите пожалуйста

Разберите по плану разбора глагола . ТриСлова : исчезает, приходит, возникает.

Злата Бохолдина · Answer 1 · 2019-08-02 00:59:25+3:00

Const
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]lt;gt;0) then
inc(k);
writeln(k)

О проекте

Напишите программку, которая в последовательности целых чисел определяет количество чисел,

Добро пожаловать!