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

Question

Информатика

Сашуля

11 февраля, 07:52

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

+1

Ответы (1)

Знаете ответ?

Юлиания · 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.