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.

Vào thông tin tài khoản chọn đổi ảnh đại diện, hoặc là RESEST máy lại

Bạn hãy vào phần thông tin tài khoản, sau đó chọn đổi ảnh đại diện, rồi nháy chọn ảnh mà bạn muốn đặt làm ảnh đại diện chọn open để tải lên, chờ trong giây lát ảnh sẽ được đổi, và pahir chờ khoảng 1 đến 2 tiếng để thay đổi hoàn toàn ảnh đại diện cho bạn đấy.

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 : 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 .

uses crt;

var

i,tong:integer

begin

tong:=0;

for i:=1 to 100 do

tong:=tong+i;

write(tong);

readln;

end.

bạn xem cách làm ở bài 1 bài thực hành số 7 j đấy có ak

​

Ok aaa