Question

Дано три числа. Вычислите сколько раз встречается среди них число 5

Answer 1

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.