cho mk hỏi dãy và n được nhập trong pascal hay trong tệp?

program tim_ucln;

uses crt;

var n,i:byte;

uc:longint;

a:array[1..100] of longint;

function ucln(x,y:longint):longint;

begin

while x<>y do

if x>y then x:=x-y else y:=y-x;

ucln:=x;

end;

begin

clrscr;

write('nhap n:');readln(n);

while (n<5) or (n>100) do

begin

write('nhap lai n thoa man 5<=n<=100:');

readln(n);

end;

writeln('nhap day:');

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

uc:=ucln(a[1],a[2]);

for i:=1 to n do

uc:=ucln(uc,a[i]);

write('ucln cua tat ca phan tu cua day la:',uc);

readln;

end.

uses crt;

var n, a, dem, tong:longint;

begin

clrscr;

write('nhap n:');readln(n);

if n mod 12= 0 then

writeln(n,' chia het cho 12')

else write(n,' khong chia het cho 12');

a:=n;

tong:=0; dem:=0;

while a<>0 do

begin

dem:=dem+1;

tong:=tong+ a mod 10;

a:=a div 10;

end;

writeln(n,' co ',dem,' chu so');

write('tong cac chu so bang:',tong);

readln;

end.

* ở đây mk gán a = n để khi đếm số chữ số ,tính tổng các các chữ số của a cũng là đếm số chữ số ,tính tổng các chữ số của n, để n vẫn giữ nguyên giá trị ban đầu. Bạn cũng có thể dùng chương trình con để giải nhé

n² + n + 6 = n(n+1) + 6 

MÀ chữ số tận cùng của 2 số tự nhiên liên tiếp có thể là 0 ; 2 ; 6 ; 

=> n(n+1) + 6 có thể tận cùng là 6 ; 8 ; 12

Vậy không chia hết cho 5(ĐPCM)

tick nha ^_<

uses crt;

var n,i,tong:integer;

begin

clrscr;

write('nhap so nguyen n:');readln(n);

for i:=1 to n do

if i mod 2<>0 then tong:=tong+i;

write('tong cac so le nho hon hoac bang n la:',tong);

readln;

end.

* có thể thay "if i mod 2<>0" bằng

"if i mod 2=1", cách nào cũng đúng nhé bn

uses crt;

var n,s:integer;

begin

clrscr;

s:=0; n:=0;

while n<5 do

begin

n:=n+1;

s:=s+n;

end;

write('s=',s);

readln;

end.

program ucln;

uses crt;

var M,N,ucln:longint;

begin

clrscr;

write('nhap M:');readln(M);

while M<=0 do

begin

write('nhap lai M:');readln(M);

end;

write('nhap N:'); readln(N);

while N<=M do

begin

write('nhap lai N:');readln(N);

end;

While M<>N do

if M>N then M:=M-N else N:=N-M;

ucln:=M;

write('ucln la:',ucln);

readln;

end.

uses crt;

var s,t:string;

n,i,j,z,k,l:longint;

a:array[1..100] of string;

begin

clrscr;

write('nhap xau:');readln(s);

z:=1; j:=0;

s:=s+' ';

for i:=1 to length(s) do

if (s[i]=' ') and (s[i-1]<>' ') then

begin

j:=j+1;

a[j]:='';

for k:=z to i-1 do

begin

a[j]:=a[j]+s[k];

end;

z:=i+1;

end;

for i:=1 to j-1 do

for k:=i+1 to j do

if length(a[i])>length(a[k]) then

begin

t:=a[i];

a[i]:=a[k];

a[k]:=t;

end;

s:='';

for i:=1 to j do

s:=s+' '+a[i];

writeln('xau da sap xep tu tang dan la:');

write(s);

readln;

end.