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

Question

Информатика

Владилен

15 ноября, 11:30

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

+1

Ответы (1)

Знаете ответ на вопрос?

Веденя · Answer 1

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.