Найдите произведение и количество цифр не кратных 5 в записи числа
Найдите произведение и количество цифр не кратных 5 в записи числа
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы