Решите поберегите мои нервы.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Пакет программ, работой компьютера и обеспечивающий взаимодействие между человекам и компьютером что
Автор: Смирнов_Андрей691
Я подпишусь , если правильно ответите
Автор: l250sp70
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.
Объяснение: