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

Question

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

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

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

Валерия Кынина
Информатика
2019-02-21 06:34:39
2
1

1 ответ

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

Имя:*

E-Mail:

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

Против каких общественных пороков направлена комедия фонвизина quot;Недоросльquot;

Было-8Съели-5осталось-?

Найдите значение выражения 10 (1/5)^2-121/5

реши пример 1200352 -( 367120/ 520 -98) * 480-480238/( 5004

Знайдть найбльший спльне кратне чисел 12 20

К сплаву меди и цинка. который содержит 10 кг цинка, добавили

CРОООООООООЧНООООООООООО!!!!!!!!ДАЮ 60 БАЛЛОВ!!!!Постройте график функции с полным

Помагите с номером 3

помогите с английским !! Очень безотлагательно. Заблаговременно спасибо.

За 1 час движения автомобиля расстояние было 72 км что состовляет

Пашка Волынаев · Answer 1 · 2019-02-21 06:43:19+3:00

Const N=1000;
var i, k, count: integer;
A: array[1..N] of integer;
begin
writeln ('vvedite chisla');
for i:=1 to N do begin
k:=k+1;
readln(A[k]);
if A[k]=0 then
break
end;
for i:=1 to K-1 do
if A[k] mod 3 =0 then
count:=count+1;
writeln('кол-во чисел, кратных трем: ', count);
end.

О проекте

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

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