Вводится 8 чисел. Нужно определить сколько из них делится на 3 и при этом заканчивается на 4

Нужно написать программу в кумире

Question

Информатика

Геронтий

25 июля, 23:27

Вводится 8 чисел. Нужно определить сколько из них делится на 3 и при этом заканчивается на 4

Нужно написать программу в кумире

+1

Ответы (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] mod 3=0) and

(a[I] mod 10=4) then

b:=b+1;

writeln (b) ;

readln;

end.

Вводится 8 чисел. Нужно определить сколько из них делится на 3 и при этом заканчивается на 4Нужно написать программу в кумире

Вводится 8 чисел. Нужно определить сколько из них делится на 3 и при этом заканчивается на 4

Нужно написать программу в кумире