سلام
سلام
سلام.
امیدوارم که دیر نشده باشه. من تازه دیدم.
program test;
var
num,temp,digits,sum:integer;
fact:long;
begin
writeln('Input Number:');
readln(num);
temp=num;
fuct=1;
digits=0;
while (temp>0)
begin
fact=fact*(temp mod 10);
temp=temp/10;
digits=digits+1;
end...