Предмет: Информатика,
автор: PashaOrlov246
Решите пожалуйста, поберегите мои нервы.
Приложения:
Уберите точку с запятой после begin надо убрать)
Ответы
Автор ответа:
1
Ответ:
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.
Объяснение:
Автор ответа:
0
Ответ:
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.
Объяснение:
Похожие вопросы
Предмет: Математика,
автор: hasi2003
Предмет: Физика,
автор: BruhovoSP1
Предмет: Алгебра,
автор: maddieson
Предмет: Химия,
автор: незнающийалгебру2
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.