Viết chương trình Nhập vào 1 số có 5 chữ số .
a) Tính tổng các chữ số có trong đó .
b) Tính tích các chữ số có trong đó .
C) Tính căn bậc hai của tính các chữ số có trong đó .
d)Tính bình phương của tổng các chữ số có trong đó .
Giúp mình với cần gấp !!!
uses crt;
var t,i,ti,ton:longint; n:string;
begin
clrscr;
write(‘n=’);readln(n); ti:=1;
for i:=1 TO 5 DO begin val(n[i],t); inc(ton,t); ti:=ti*t; end;
writeln(‘a) ‘,ton);
writeln(‘b) ‘,ti);
writeln(‘c) ‘,sqrt(ti):0:5);
writeln(‘d) ‘,sqrt(ton));
readln;
end.
uses crt;
var n:string; i,s,p,a:longint;
begin
clrscr;
repeat
write(‘Nhap 1 so co 5 chu so: ‘); readln(n);
until length(n)=5;
p:=1;
for i:=1 to 5 do
begin
val(n[i],a);
inc(s,a);
p:=p*a;
end;
writeln(‘a) Tong cac chu so: ‘,s);
writeln(‘b) Tich cac chu so: ‘,p);
writeln(‘c) Can bac nhi tich cac chu so: ‘,sqrt(p):0:2);
writeln(‘d) Binh phuong tong cac chu so: ‘,sqr(s));
readln
end.