Регистрация
Dashakrasaveta
06.02.2020 14:19
Информатика
Есть ответ 👍

Найдите произведение и количество цифр не кратных 5 в записи числа

126
173
Посмотреть ответы 2

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

Катя15710000000
Катя15710000000
4,6(25 оценок)
Var n,p,k: integer; begin write('n = '); readln(n); p: =1; k: =0; while n> 0 do   begin   if n mod 5 < > 0 then begin p: =p*(n mod 10); k: =k+1; end;   n: =n div 10;   end; writeln('p = ',p,'   k = ',k); end. пример: n = 3251046 p = 144   k = 5
Begzodik
Begzodik
4,7(43 оценок)
2*60=120 секунд. 120*256000 = 30720000байт передано, 30720000 /8/1024=3750кб

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