Question

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

Answer 1

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

Пример:
348
32

Answer 2

program CalculateProduct; var number, hundreds, tens, units, product: integer; begin writeln('Enter a three-digit number: '); readln(number); // Calculate the hundreds, tens and units digits hundreds := number div 100; tens := (number mod 100) div 10; units := number mod 10; // Calculate the product of the tens and units digits product := tens * units; writeln('The product of the tens and units digits is: ', product); end.