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

PascalABC

Question

Альфред

18 октября, 10:19

+2

Ответы (1)

Знаете ответ на вопрос?

Деня · Answer 1

var a:integer;

begin

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

readln (a) ;

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

end.

Пример:

348

32

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