Question

Решите задачу на языке Pascal.
Дано двухзначное число. Найти сумму и произведение его цифр.

Answer 1

var
a,b,c,sum,pr:longint
begin
read(a);
b:=a div 10;
c:=a mod 10;
sum:=b+c;
pr:=b*c;
write(sum,' ',pr);
end.