Введите с клавиатуры 8 положительных целых чисел. Определите, сколько из

них делится на 3 и оканчивается на 4. Программа должна вывести одно число:

количество чисел, кратных 3 и оканчивающихся на 4.

Question

Информатика

Тонюня

13 сентября, 23:16

Введите с клавиатуры 8 положительных целых чисел. Определите, сколько из

них делится на 3 и оканчивается на 4. Программа должна вывести одно число:

количество чисел, кратных 3 и оканчивающихся на 4.

+3

Ответы (1)

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

Вестита · Answer 1

Var b, I:integer;

a:array [1 ... 8] of integer;

begin

writeln ('введите числа') ;

for I:=1 to 8 do

read (a[I]) ;

b:=0;

for I:=1 to 8 do

if (a[I]mod3=0) and

(a[I]mod10=4) then

b:=b+1;

writeln (b) ;

readln;

end.