Написать функцию нахождения кол-ва цифр через рекурсию. паскаль. рекурсия. через функцию.
187
379
Ответы на вопрос:
Var a: integer; function k(n: integer): integer; begin if n< 10 then k: =1 else k: =k(n div 10)+1; end; begin write('a = '); readln(a); writeln('количество цифр = ',k(a)); end. пример: a = 134652 количество цифр = 6
// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! function digcnt(n: integer): integer: =(n< 10? 1: digcnt(n div 10)+1); begin var k: =readinteger('введите целое неотрицательное число'); if k> =0 then writeln('цифр в числе: ',digcnt(k)) end. пример введите целое неотрицательное число 14206423 цифр в числе: 8
Пыталась сменить пороль? Или уж создать новый, или можно скинуть мне я попробую разобраться, потом скину пароль и логин, пароль поменяешь, конечно если получиться
Популярно: Информатика
-
badery34629.12.2020 09:28
-
osolonskaya31.12.2021 15:48
-
ErikLusenko27.11.2022 10:24
-
altynai050402.03.2020 09:15
-
dfhhu04.05.2023 01:02
-
alexcopes423.04.2023 20:04
-
AnonimkaNya23.04.2022 09:27
-
KapEwa25.05.2023 20:25
-
semic117.09.2021 18:03
-
sweet69021.02.2020 06:56