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

Question

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

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

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

Юрик Кирбянов 2019-02-26 06:27:30

Паскаль?

Константин Вовко 2019-02-26 06:33:29

да

Вадим
Информатика
2019-02-26 06:25:04
1
1

1 ответ

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

Имя:*

E-Mail:

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

апредилите все признаки глаглов поднялось подъехал принесла

Установите меж физическими величинами и расчетными формулами. ФИЗИЧЕСКАЯ ВЕЛИЧИНА.А) Работа

як скласти складне речення с словами Дво старшокласникв

Найдите значение выражения:

Лагические загадки пожалуйста помогите

Ребята, нужна помощь в решении задач по генетике!Есть 4 дракона, 2

уменьшить дроби 165/465 и 208/312

Найди площадь этого отреза,если длина одной клеточки соответствует 1 дмв длину

Прямая AB касательная окружности с центром O радиуса R в точке

Можно пожалуйста план к 3 тому доли 2

Вадим · Answer 1 · 2019-02-26 06:30:56+3:00

Var
A,b,c:integer;
Begin
b:=-1;
c:=0;
Repeat
ReadLn(A);
b:=b+1;
if (A mod 2 lt;gt; 0)and(A mod 3 = 0) then c:=c+1
Until A = 0;
WriteLn('Длина последовательности: ',b);
WriteLn('Кол-ко нечётных чисел, кратных трём: ',c);
End.

О проекте

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

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