Регистрация
dias2050
01.10.2020 13:18
Информатика
Есть ответ 👍

Дано натуральное число n.определить сколько в числе нулей.pascal abc

299
318
Посмотреть ответы 3

Ответы на вопрос:

Misaki59
Misaki59
4,7(2 оценок)
1. "школьное" решение //pascalabc.net 3.0, сборка 1064 var   s: string;   i,k: integer; begin   write('введите натуральное число: '); readln(s);   k: =0;   for i: =1 to length(s) do       if s[i]='0' then inc(k);   writeln('количество нулей в записи числа равно ',k) end. пример: введите натуральное число: 13054000230 количество нулей в записи числа равно 5 2. современное решение //pascalabc.net 3.0, сборка 1064 begin   var s: =readstring('введите натуральное число: ');   writeln('количество нулей в запиcи числа равно ',s.where(x-> x='0').count) end. пример: введите натуральное число:   13054000230 количество нулей в записи числа равно 5
fatimatagiyeva
fatimatagiyeva
4,7(51 оценок)
Var n,i: longint; begin read (n); i: =0; repeat if (n mod 10 = 0) then i: =i+1; n: = n div 10; until (n=0); writeln(i); end.
rfege91
rfege91
4,7(58 оценок)

ответ: B)

Объяснение:

Популярно: Информатика