Программа нахождения произведения нечетных цифр двузначных чисел от 30 до 40. Напишите пожалуйста на Паскаль.

Ответ:

Var a,i:integer;

Begin

A:=1;

For i:=30 to 40 do

Begin

If i mod 10 mod 2 =1 then

A:=a*(i mod 10);

If i div 10 mod 2 =1 then

A:=a*(i div 10);

End;

End.