Разработайте на псевдокоде метод (а если охото и можется - реализующую

Допустим число 123. Нам необходимо отыскать 1-ое, 2-ое и третье его число.
То есть 1,2,3. позже их сложить либо перемножить.
Чтоб найти 1-ое число нужно 123 поделить на 100,получиться 1.23,его мы округляем и получаем 1.
2-ое мы обретаем разделяя 123 на 100,получаем остаток 23, разделяем остаток на 10 и получаем 2.
Третье число мы обретаем разделяя 123 на 10 и получаем остаток.
Потом складываем их или перемножаем.
Пример на  pascal:
//div это делить,mod отстаток
var a,b,c,s: integer;
begin
Write('Введи число: ');
Read(s);
a:= s div 100;
b:= s mod 100 div 10;
c:= s mod 10;
WriteLn('Сумма: '+a+b+c);
WriteLn('Произведение: '+a*b*c);
end.