Ответы на вопрос:
Var a, a1, s: integer; begin a : = 1; s : = 0; while(a < > 0) do begin readln(a); a1 : = a; while(a1 > 0) do begin if(a1 mod 10 = 5) then begin s : = s + 1; a1 : = 0; end; a1 : = a1 div 10; end; end; writeln(s) end.
Популярно: Информатика
-
hkkk1gonso25.02.2021 14:04
-
артемка227777719.09.2020 10:01
-
komarovaliza6424.03.2021 08:36
-
j502277830.12.2021 10:20
-
lightningwhite18.04.2022 16:34
-
23443234334213.12.2021 07:13
-
ПандаВера01.05.2023 06:25
-
рвовивовл09.10.2022 03:19
-
abc7131.03.2020 12:46
-
nastya274711.10.2021 20:38