ИгоревичАндрей
?>

Решите поберегите мои нервы.

Информатика

Ответы

yliana

var

a,k,n,i:integer

begin

k:=0;

readln(n);

for i:=1 to n do

begin;

readln(a);

if (a mod 3=0)

then k:=k+1;

end;

writeln(k);

end.

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Решите поберегите мои нервы.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Виктор-Богданов
Daulyatyanov1266
ganul
novocherkutino7
Valentinovna
bezpalova2013
fhf3624
afoninia
brendacepedam
АндреевичЮлия
Ferrigen
Yelena_Irina826
shakhnina90
vadimkayunusov
bristolhouse20151001