Var a, b, c, d:integer;beginreadln (a, b, c);while a>0 dobeginif a mod 10=5 then d:=d+1;a:=a div 10;end;while b>0 dobeginif b mod 10=5 then d:=d+1;b:=b div 10;end;while c>0 dobeginif c mod 10=5 then d:=d+1;c:=c div 10;end;writeln (d);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
