Câu 1:

Hint: Tìm UCLN của mảng

Code:

uses    crt,math;
var     n,i,x: longint;
        a: array[0..1000007] of longint;
function ucln(x,y: longint): longint;
var     tmp: longint;
begin
        while y > 0 do
                begin
                        tmp:= x mod y;
                        x:= y;
                        y:= tmp;
                end;
        exit(x);
end;
begin
        clrscr;
        readln(n);
        for i:=1 to n do
                read(a[i]);
        x:= ucln(a[1],a[2]);
        for i:=3 to n do
                x:= max(x,ucln(x,a[i]));
        writeln(x);
        readln
end.

Câu 2:

Hint: Như đề :vv

Code:

uses    crt;
var     n: longint;
function tcs(n: longint): longint;
var     tmp,s: longint;
begin
        s:= 0;
        while n > 0 do
                begin
                        tmp:= n mod 10;
                        s:= s + tmp;
                        n:= n div 10;
                end;
        exit(s);
end;
begin
        clrscr;
        readln(n);
        writeln(tcs(n));
        readln
end.

Câu 1:

var A:array[1..100] of integer;

ucln,i,n,t:integer;

f1,f2:text;

function uc(a,b: integer):integer;

var t:integer;

begin

while b<>0 do

begin

t:=a mod b;

a:=b;

b:=t;

end;

uc:=a;

end;

begin

assign(f1,'PT.INP'); reset(f1); read(f1,n);

assign(f2,'PT.OUT'); rewrite(f2);

for i:=1 to n do read(f1,A[i]);

t:=uc(A[1],A[2]);

for i:=3 to n do ucln:=uc(t,A[i]);

write(f2,ucln);

close(f2);

end.

Câu 2:

var n,s,t:qword;

f1,f2:text;

begin

assign(f1,'MK.INP'); reset(f1); read(f1,n);

assign(f2,'MK.OUT'); rewrite(f2);

while ( N <> 0 ) do

begin

t:=n mod 10;

n:=n div 10;

s:=s+t;

end;

write(f2,s);

close(f2);

readln

end.