Дано натуральное число n. напишите функцию (pascal), определяющую количество нулей среди всех цифр числа n. входные данные задано единственное число n выходные данные необходимо вывести количество нулей среди всех цифр числа n. примеры входные данные 100 выходные данные 2
159
479
Ответы на вопрос:
Function abc(a: integer): integer; begin result: =0; while a> 0 do begin if a mod 10 = 0 then result: =result+1; a: =a div 10; end; end; var a: integer; begin read(a); writeln(abc(a)); end.
ответ:
в дату нужно написать третье
во время второе
во стоимость первое
вроде все
Популярно: Информатика
-
sab00526.07.2022 01:48
-
Viktoria2004040106.02.2020 01:36
-
jsjdn02.06.2020 20:28
-
камила90524.05.2022 11:57
-
умник20061004.02.2020 12:51
-
lizaaf16.10.2022 07:11
-
serovik2413.03.2022 00:04
-
makka2310.05.2023 02:32
-
фируза1427.10.2022 18:45
-
Kikimora1627.12.2022 20:50