Введите с клавиатуры 5значное число и посчитайте произведение нечетных цифр числа
Введите с клавиатуры 5значное число и посчитайте произведение нечетных цифр числа
Гость
Ответ(ы) на вопрос:
Гостьvar ab, sum: integer;
a: array[1..5] of integer;
begin
readln (ab);
a[1]:= ab div 10000;
a[2]:= ab mod 10000 div 1000;
a[3]:= ab mod 1000 div 100;
a[4]:= ab mod 100 div 10;
a[5]:= ab mod 10;
for i: integer:= 1 to 5 do
if a[i] mod 2= 1
then sum+=a[i];
writeln (sum);
end.
Гостьprogram tak;
var a,b,c,d:integer;
begin writeln('введите пятизначное число ');
readln(a);
d:=1;
while (a<>0) do
begin
b:=a mod 10;
if (b mod 2 <> 0) then
d:=d*b;
a:=a div 10;
end;
writeln(d);
end.
Не нашли ответ?
Похожие вопросы