как записать это на паскале?? Дано трехзначное число.Найти сумму и произведение его цифр

Question

salimali · Accepted Answer

Можно сделать очень просто, введи каждую цифру данного трехзначного числа отдельно и совершай с ними все арифметические операции. 
Uses Crt; 
Var a,b,c,s,p:integer; 
Begin 
ClrScr; 
writeln('Введи трехзначное число'); 
readln( a,b,c); {После ввода каждой цифры жми Enter} 
s:=0; s:=a+b+c; 
p:=1; p:=a*b*c; 
writeln('Сумма цифр s= ',s:5, 'Произведение цифр p= ',p:7); 
readkey 
End.

safik_22 · Answer

а если не хитрить (не вводить число отдельными цифрами), то можно так
var a,x,y,s,o,z:integer;
begin;
writeln('Введите трёхзначное число');
readln(a);
x:=a mod 10;
a:=a div 10;
y:=a mod 10;
z:=a div 10;
s:=x+y+z;
o:=x*y*z;
writeln('Сумма цифр=',s, ' Произведение цифр=',o);
end.

akhmetshin_marat_1 · Answer

может вот это натолкнет на какие то мысли 
[ссылка заблокирована по решению администрации проекта]

Как записать это на паскале?? Дано трехзначное число.Найти сумму и произведение его цифр