Ответы
Ответ дал:
0
var
k,a,b,c:Integer;
Begin
k:=0;
Read(a,b,c);
if (a mod 2 = 0) then k:=k+1;
if (b mod 2 = 0) then k:=k+1;
if (c mod 2 = 0) then k:=k+1;
Writeln(k);
end.
k,a,b,c:Integer;
Begin
k:=0;
Read(a,b,c);
if (a mod 2 = 0) then k:=k+1;
if (b mod 2 = 0) then k:=k+1;
if (c mod 2 = 0) then k:=k+1;
Writeln(k);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад