Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.