Dòng 7 : Sửa lại thành : write('Nhap si so lop :');

Dòng 13 : Sửa lại thành : end;

Dòng 14: Sửa lại thành : writeln('bang diem vua nhap : ');

Dòng 16: Sửa lại thành : writeln('thu ',i,': ',a[i]:1:2,' diem');

Program HOC24;

var i,n: integer;

t: longint;

begin

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

t:=1; i:=1;

while i<n do

begin

if i mod 2=1 then t:=t*i;

i:=i+1;

end;

write(t);

readln

end.

uses crt;

var c,d:real;

i,n,j:integer;

begin

clrscr;

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

i:=1;

c:=0;

while i<=n do

begin

i:=i+1;

c:=c+1/i;

end;

writeln('C=',c:4:2);

d:=0;

j:=1;

while j<=49 do

begin

d:=d+1/(j*(j+1));

inc(j);

end;

writeln('D=',d:4:2);

readln;

end.

a) Đoạn chương trình 1:

Máy sẽ thực hiện 5 vòng lặp

Giá trị của S : 5

-Vòng 1: S>5 ---> ĐK đúng ---> S:=10-1=9

- Vòng 2: S>5 ---> ĐK đúng ---> S=9-1=8

- Vòng 3: S>5 ---> ĐK đúng ---> S=8-1=7

- Vòng 4 : S>5 ---> ĐK đúng ---> S=7-1=6

- Vòng 5 : S>5 ---> ĐK đúng ---> S=6-1=5

S>5 ---> ĐK sai ---> kết thúc vòng lặp

b) Bạn kiểm tra lại đề nhé, ở phần n:=n=3;

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=1;

for i:=1 to n do

if i mod 2=1 then s:=s*i;

writeln('Ket qua la: ',s:0:0);

readln;

end.

làm theo cách while...do nữa giúp mik với

x=7

y=5

Số vòng lặp là 20-5+1=15+1=16(vòng)

uses crt;

var n,t:integer;

begin

clrscr;

n:=0; t:=0;

while t<=100 do

begin

n:=n+1;

t:=t+n;

end;

writeln(n);

readln;

end.

Cú pháp: For <biến đếm>:=<chỉ số đầu> to <chỉ số cuối> do <câu lệnh>;

Giải thích:

-Biến đếm: Có thể khai báo theo kiểu integer hoặc string

-Chỉ số đầu, chỉ số cuối có thể là số nguyên hoặc kiểu chuỗi

Cách hoạt động: Câu lệnh lặp thực hiện lặp lại vài hoạt động nào đó cho đến khi một điều kiện nào đó được thỏa mãn

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 50 do

t:=t+i;

writeln(t);

readln;

end.