Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Введите с клавиатуры 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.