C клавиатуры вводится трехзначное число подсчитать произведение цифр десятков и единиц

PascalABC

Question

Вивиана

9 февраля, 01:45

+3

Ответы (1)

Знаешь ответ?

Ливия · Answer 1

var a:integer;

begin

write ('введите трехзначное число: ');

readln (a);

writeln ((a div 10 mod 10) * (a mod 10));

end.

Пример:

348

32

C клавиатуры вводится трехзначное число подсчитать произведение цифр десятков и единицPascalABC