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

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



PascalABC

Задать свой вопрос
1 ответ
var a:integer;
begin
write('введите трехзначное число: ');
readln(a);
writeln((a div 10 mod 10)*(a mod 10));
end.

Пример:
348
32
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт