Помогите решить..( програмирование)Дано натуральное четырехзначное число. Найти произведение его второй и четвёртой цифры.( Pascal ABC)

Помогите решить..( програмирование) Дано натуральное четырехзначное число. Найти произведение его второй и четвёртой цифры.( Pascal ABC)
Гость
Ответ(ы) на вопрос:
Гость
Если считать цифры справа налево(в числе 1234, цифра 4 - первая): Var A:integer; Begin WriteLn('Введите четырёхзначное число'); ReadLn(A); WriteLn(((A div 10) mod 10)*(A div 1000)); End. Если считать слева направо(в числе 1234, цифра 1 - первая): Var A:integer; Begin WriteLn('Введите четырёхзначное число'); ReadLn(A); WriteLn(((A div 100) mod 10)*(A mod 10)); End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы