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

Question

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


PASCALABC

Answer 1

//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

Comments

Произведение ДЕСЯТКОВ

---

В этом числе 12 десятков и

---

Тоесть в числе 123 произведение десятков 10*20*30

---

3 еденицы

---

Условие нужно правильно ставить, сейчас исправлю.

---

Произведение единицы с числа 123 это 1*2*3

---

Хорошо

---

Уже правильно?

---

Да

---

Спасибо!!!!!!))))))))