Question

Напишите программу для нахождения произведения цифр двузначного числа.

Answer 1

Program z1;
var n,x1,x2,p:integer; 
beginwrite('Введите цифру:');
readln(n);
x1:=n mod 10;
x2:=n div 10;
p:=x1*x2;
write(p);
end.