C клавиатуры вводится трехзначное число подсчитать произведение цифр ДЕСЯТКОВ и ЕДИНИЦ


PASCALABC

//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

var
a:integer;
begin
  read(a);
  writeln(Произведение десятков: ,(a mod 10)*(a div 10 mod 10)*(a div 100)*1000);
  writeln(Произведение единиц: ,(a mod 10)*(a div 10 mod 10)*(a div 100));
 readln;
 readln;
end.

Пример:

123
Произведение десятков: 6000
Произведение единиц: 6

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