Найдите произведение и количество цифр не кратных 5 в записи числа
Ответы на вопрос
Ответил petyaGavrikov
0
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
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
Ответил vovakharebin111
0
спасибо
Ответил vovakharebin111
0
а как вот этот решить? Нужно написать программу. Найдите сумму и произведение цифр не кратных 3.
Новые вопросы