uses crt;

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

i,n,t,kt,j:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Cac so vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cua day so la: ',t);

kt:=0;

for j:=2 to trunc(sqrt(t)) do 

  if t mod j=0 then 

    begin

kt:=1;

break;

end;

if kt=0 then writeln(t,' la so nguyen to')

else writeln(t,' khong la so nguyen to');

readln;

end.

Cậu ơi sai khúc write('A[',i,']='); readln(a[i]); rồi nó cứ bị sao sao á

uses crt;

var a,b:integer; {------------------------chuong-trinh-con-tim-uoc-chung-lon-nhat-cua-a-va-b----------------------}

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

var i,uc:integer;

begin

   uc:=1;

   if x<y then

      begin

         for i:=1 to x do

           if (x mod i=0) and (y mod i=0) then

              begin

                 if uc<i then uc:=i;

              end;

      end

   else begin

           for i:=1 to y do

             if (x mod i=0) and (y mod i=0) then

                begin

                   if uc<i then uc:=i;

                end;

        end;

   ucln:=uc;

end;

{-----------------------chuong-trinh-chinh---------------------}

begin

clrscr;

write('Nhap so a='); readln(a);

write('Nhap so b='); readln(b);

a:=a div ucln(a,b);

b:=b div ucln(a,b);

writeln('Phan so toi gian la: ',a,'/',b);

readln;

end.

uses crt;

var a:integer;

begin

clrscr;

write('Nhap a='); readln(a);

if a mod 2=0 then write(a,' la so chan')

else write(a,' la so le');

readln;

end.

Bạn ơi!

Viết rõ là có thể đổi ra thành bao nhiêu tờ 10,5,2,1 đồng hay là có thể lấy bao nhiêu tờ 10,5,2,1 để tạo thành một số tiền bằng n vậy bạn?

Ví dụ như nhập n=30

thì xuất là 3 tờ 10; 6 tờ 5; 15 tờ 2; 30 tờ 1 

hay là xuất 3 tờ 10 

uses crt;

var n,dv,ch:integer;

begin

clrscr;

repeat

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

until (10<=n) and (n<=99);

dv:=n mod 10;

ch:=n div 10;

writeln('Tong cac chu so la: ',dv+ch);

readln;

end.

program phuong_trinh;

uses crt;

var a,b:real;

begin

writeln('chuong trinh giai phuong trinh ã+b=0');

write('nhap he so a ='); readln(a);

write('nhap he so b ='); readln(b);

If (a<>0) then writeln('phuong trinh',a:10:2,'x+',b:10:2,'=0',' co nghiem x=;'-b/a:10:2);

If (a=0) and (b=0) then writeln('phuong trinh co vo so nghiem');

If (a=0) and (b<>0) then writeln('phuong trinh vo nghiem');

readln

end.

\(ax+b=0< =>x=-\frac{b}{a}\)

Program hoc24;

Uses crt;

Var r,S,C:real;

Begin

Write ('Ban kinh la');

Readln (r);

S:=r*r*3.14;

C:=r*2*3.14;

Writeln ('Chu vi la',C);

Writeln ('Dien tich la',S);

Readln;

End.

sau var có cần có dòng này : Const pi=3.14; không ạ ?