PROGRAM BT6_T79;
VAR
A: ARRAY[1.. 100] OF INTEGER;
N, I, U: INTEGER;
SO_NT, SO_CHAN: INTEGER;
BEGIN
SO_CHAN:=0;
SO_NT:=0;
WRITE('SO PHAN TU CUA DAY A(N<=100), N = ');
READLN(N);
WHILE (N<0) OR (N>100) DO
BEGIN
WRITE('NHAP LAI, SO PHAN TU CUA DAY A (N<=100), N= ');
READLN(N);
END;
FOR I:=1 TO N DO
BEGIN
WRITE('A[',I,']= ');
READLN(A[I]);
IF A[I] MOD 2= 0 THEN
SO_CHAN:= SO_CHAN+ 1;
IF A[I]>1 THEN
BEGIN
U:=2;
WHILE (U<= SQRT(A[I])) AND ((A[I] MOD U) <>0) DO
IF U> SQRT(A[I]) THEN
SO_NT:= SO_NT+1;
END;
END;
WRITELN('SO LUONG SO CHAN: ', SO_CHAN);
WRITELN('SO LUONG SO LE: ', SO_LE);
WRITELN('SO LUONG SO NGUYEN TO: ', SO_NT);
READLN
VAR
BEGIN
READLN(N);
FOR i:= 1 TO N DO
BEGIN
END;
FOR i:= 2 TO N DO
READLN
PROGRAM BAI7_T79;
VAR
N, I: WORD;
F, F1, F2: WORD;
BEGIN
WRITE('TIM SO HANG THU N CUA DAY PHI-BO-NA-XI, N= ');
READLN(N);
F1:=1;
F2:=1;
FOR I:=3 TO N DO
BEGIN
F:=F1+F2;
F1:=F2;
F2:=F;
END;
WRTIE(F);
READLN
END.
Var
Begin
For i:= 1 to length(s) Do
Readln
Var
Begin
For i:= x Downto 1 Do
If a= p Then
Else
Readln
Var
Begin
For i:= 1 To x div 2 Do
If Palin Then
Else
Readln
Program bai3;
Var
Begin
Begin
Readln
Write(a[i]:5);
Writeln(‘tong cac so duong trong day la’,td:4);
Writeln(‘trung binh cong cac so am trong day la’,ta/da:6:2);
Readln;
END.
PROGRAM VD1_T87;
VAR
D: REAL;
X, Y: INTEGER;
F: TEXT;
BEGIN
ASSIGN(F,'TRAI.TXT');
RESET(F);
WHILE NOT EOF(F) DO
BEGIN
READLN(F,X,Y);
D:= SQRT(X*X+Y*Y );
WRITELN('KHOANG CACH: ', D:10:2)
END;
CLOSE(F);
READLN
PROGRAM VD2_T88;
VAR
A:ARRAY[1..5] OF REAL;
R1, R2, R3: REAL;
I: INTEGER;
F1, F2: TEXT;
BEGIN
ASSIGN(F1,'RESIST.DAT');
RESET(F1);
ASSIGN(F2,'RESIST.EQU');
REWRITE(F2);
WHILE NOT EOF(F1) DO
BEGIN
READLN(F1,R1, R2, R3);
A[1]:=R1*R2*R3/(R1*R2+R1*R3+R2*R3);
A[2]:=R1*R2/(R1+R2)+R3;
A[3]:=R1*R3/(R1+R3)+R2;
A[4]:=R2*R3/(R2+R3)/R1;
A[5]:=R1+R2+R3;
ROR I:=1 TO 5 DO
WRITELN(F2);
END;
CLOSE(F1);
CLOSE(F2);
READLN
PROGRAM VD_THUTUC1;
PROCEDURE VE_HCN;
BEGIN
WRITELN('* * * * * * *');
WRITELN('* * * * * * *');
END;
BEGIN
VE_HCN
VE_HCN
VE_HCN;
READLN
END.
PROGRAM VD_THUTUC2;
VAR A, B, I: INTEGER;
PROCEDURE VE_HCN(CHDAI, CHRONG: INTEGER);
VAR
I, J: INTEGER;
BEGIN
FOR I:= 1 TO CHDAI DO
FOR J:= 1 TO CHRONG- 2 DO
BEGIN
WRITE('*');
FOR I:= 1 TO CHDAI- 2 DO
END;
FOR I:= 1 TO CHDAI DO
END;
BEGIN
VE_HCN(25,10);
WRITELN; WRITELN;
VE_HCN(5,10);
READLN;
A:=4; B:= 2;
FOR I:= 1 TO 4 DO
BEGIN
VE_HCN(A, B);
READLN;
A:=A*2; B:=B*2;
END;
READLN
END.
PROGRAM VD_THAMBIEN1;
VAR A, B: INTEGER;
PROCEDURE HOAN_DOI(VAR X, Y: INTEGER);
VAR TG: INTEGER;
BEGIN
TG:=X; X:=Y; Y:=TG;
END;
BEGIN
A:=5; B:=10;
WRITELN(A:6, B:6);
HOAN_DOI(A,B);
WRITELN(A:6, B:6);
READLN
END.
PROGRAM VD_THAMBIEN1;
VAR A, B: INTEGER;
PROCEDURE HOAN_DOI(X: INTEGER; VAR Y: INTEGER);
VAR TG: INTEGER;
BEGIN
TG:=X; X:=Y; Y:=TG;
END;
BEGIN
A:=5; B:=10;
WRITELN(A:6, B:6);
HOAN_DOI(A,B);
WRITELN(A:6, B:6);
READLN
PROGRAM RUTGON_PHANSO;
VAR TUSO, MAUSO, A: INTEGER;
FUNCETION UCLN(X, Y: INTEGER): INTEGER;
VAR
SODU: INTEGER;
BEGIN
WHILE Y<>0 DO
BEGIN
SODU:= X MOD Y;
X:=Y;
Y:=SODU;
END;
UCLN:=X;
END;
BEGIN
WRITE('NHAP TU SO, MAU SO VAO: ');
READLN( TUSO, MAUSO);
A:=UCLN(TUSO, MAUSO);
IF A>1 THEN
BEGIN
TUSO:= TUSO DIV A;
MAUSO:= MAUSO DIV A;
END;
WRITELN(TUSO:5, MAUSO:5);
READLN
END.
PROGRAM MINBASO;
VAR
A, B, C: REAL;
FUNCTION MIN(A, B: REAL): REAL;
BEGIN
IF A<B THEN
MIN:=A
ELSE
MIN:= B;
END;
BEGIN
WRITE('NHAP VAO BA SO: ');
READLN(A, B, C);
WRITELN('SO LON NHAT TRONG BA SO LA: ', MIN(MIN(A, B), C));
READLN
END.
Đáp án
Program bai4_TH;
Var
A:array[1..100]of integer;
Begin
Readln
End.
Program bai4_TH;
Var
Begin
Begin
Readln