дано натуральное число n найти произведение нечетных цыфр заданного числа.Пожалуйста Срооочно .Если можно схeму тоже составьте и сфоткайте
Ответы на вопрос
Ответил throwGame
0
program asdasd;
var n,r,i:integer;
begin;
r:=1;
read(n);
for i:=1 to length(inttostr(n)) do
if strtoint(inttostr(n)[i]) mod 2 = 1 then r*=strtoint(inttostr(n)[i]);
write(r);
end.
var n,r,i:integer;
begin;
r:=1;
read(n);
for i:=1 to length(inttostr(n)) do
if strtoint(inttostr(n)[i]) mod 2 = 1 then r*=strtoint(inttostr(n)[i]);
write(r);
end.
Новые вопросы