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

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

Задать свой вопрос
1 ответ
Var a, b, c, d:integer;beginreadln (a, b, c);while agt;0 dobeginif a mod 10=5 then d:=d+1;a:=a div 10;end;while bgt;0 dobeginif b mod 10=5 then d:=d+1;b:=b div 10;end;while cgt;0 dobeginif c mod 10=5 then d:=d+1;c:=c div 10;end;writeln (d);end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт