Дано целое четырехзначное число. Если число четное, найти произведение его цифр, иначе перевернуть число, записав его цифры в обратном порядке. Написать программу в Паскале.

Предыдущий
вопрос Следующий
вопрос

program FourDigitNumber;

va
num, digit1, digit2, digit3, digit4, product: integer;

begi
write('Введите целое четырехзначное число: ')
readln(num);

if num mod 2 = 0 the
begi
digit1 := num div 1000
digit2 := (num div 100) mod 10
digit3 := (num div 10) mod 10
digit4 := num mod 10;

product := digit1 * digit2 * digit3 * digit4
writeln('Произведение цифр числа: ', product);

en
els
begi
digit1 := num mod 10
digit2 := (num div 10) mod 10
digit3 := (num div 100) mod 10
digit4 := num div 1000;

writeln('Число с перевернутыми цифрами: ', digit1, digit2, digit3, digit4);

end
end.