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

Question

Информатика

Киря

6 марта, 04:04

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

+2

Ответы (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.