Анонимно

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



PascalABC

Ответ

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

Пример:
348
32