var a,b,c,count:integer; begin count:=0; readln (a,b,c); if (a mod 2=0) then count:=count+1; if (b mod 2=0) then count:=count+1; if (c mod 2=0) then count:=count+1; writeln (count); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
