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

Предыдущий
вопрос Следующий
вопрос

program SumAndProd;

var
num, digit1, digit2, sum, prod: integer;

begin
writeln('Введите двузначное число:');
readln(num);

digit1 := num div 10;
digit2 := num mod 10;

sum := digit1 + digit2;
prod := digit1 * digit2;

writeln('Сумма цифр числа: ', sum);
writeln('Произведение цифр числа: ', prod);
end.