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

PascalABC

Question

Арий

25 октября, 14:09

+5

Ответы (1)

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

Ануся · Answer 1

var a:integer;

begin

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

readln (a) ;

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

end.

Пример:

348

32

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