12

a) Máy tính sẽ thực hiện 6 vòng lặp

t=0; j=30

b) 

uses crt;

var j,t:integer;

begin

t:=105; 

j:=0;

while t>=20 do

begin

j:=j+5;

t:=t-j;

end;

writeln(t);

writeln(j);

readln;

end.

Uses Crt;
Var A : Array [1..100] Of Integer ;
i , j , n , T : Integer ;

BEGIN
Clrscr ;
Write(' Do dai cua day so N = ') ; Readln (N) ;
Writeln (' Nhap day so : ') ;
For i := 1 To N Do
Begin
Write('A[', i ,'] = ') ; Readln ( A ) ;
End ;
i := 1 ;
While (i <= n-1) Do
Begin
j := i+1;
While j<=n do
Begin
If A[j] < A then
Begin
T := A[j];
A[j ] := A;
A := T ;
End ;
j := j + 1;
End ;
i := i + 1;
End ;
Writeln(' Day sau khi sap xep : ') ;
For i := 1 To N Do Write(A : 4) ;
Readln ;
END .

dài VL

Ok aaa

Anh thấy cũng hơi chậm 

em tải cũng phải mất đến 10 giây đấy ạ 

Trả lời câu hỏi thì sẽ có GP rất nhanh, còn lại thì chả có cách gì nữa đâu (ngoại trừ chơi gian nhờ CTV tick hộ)

Ngô Lê Dung ít ra cx wen nhìu ng` ms nhờ CTV đc chứ:v

mak câu nì là cái thứ mấy chục r chời ==''

Program tính_chia;

Uses crt;

Var i, n, s, a: integer;

Begin

Write('Nhap so n: '); readln(n);

s:=1;

For i:=1 to n do s:=s*i;

a:=0;

For i:=1 to n do a:=a+i;

Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);

readln;

End.

Uses crt;

Var a,b : integer;

Begin

Writeln('Tong hai so a va b la= ', a + b );

Readln;

End.

Cho phép viết lại :)

Uses crt;

Var a,b:integer;

Begin

clrscr;

Writeln('Nhap so a = '); Readln(a);

Writeln('Nhap so b = '); Readln(b);

Writeln('Tong hai so a va b la = ',a+b);

Readln;

end.