Question

VIet ct nhao vao so nguyen duong

a. SO nguyen duong co bao nhieu chu so

b.Tinh tong cac so do

c.IN ra so lon nhat

Answer 1

uses crt;

var n,i,t,x,max:integer;

st:string;

a:array[1..255]of integer;

begin

clrscr;

repeat

write('N='); readln(n);

until n>0;

str(n,st);

writeln('So chu so cua ',n,' la: ',length(st);

t:=0;

for i:=1 to length(st) do

begin

val(st[i],a[i],x);

t:=t+a[i];

end;

writeln('Tong cua cac chu so cua ',n,' la: ',t);

max:=0;

for i:=1 to d do

if max<a[i] then max:=a[i];

writeln('So lon nhat la: ',max);

readln;

end.