Cú pháp:

For < biến đếm >:= < giá trị đầu > to < giá trị cuối > do

       < câu lệnh >;

Trong đó:

Ý nghĩa:

Khi thực hiện, biến đếm sẽ nhận giá trị là giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối thì dừng lại.

Bn tham khảo link

https://123doc.net/document/498142-cau-lenh-lap-for-do.htm

Câu hỏi trống? Máy bạn bị lag?

giúp mình với 

program tim_max;

uses crt;

var i,n,max:integer;

x:array[1..100]of byte;

begin

clrscr;

write('nhap so n:');readln(n);

i:=1;

while i<=n do

begin

write('x[',i,']=');readln(x[i]);

i:=i+1;

end;

max:=x[1];i:=1;

while i<=n do

begin

if max<x[i] then max:=x[i];

i:=i+1;

end;

write('so lon nhat la:',max);

readln;

end.

Mình cần gấp!! Cảm ơn ạ

Câu 1: 

a) (x+y)/(x-y)

b) sqr(b)-4*a*c;

Câu 2: 

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap chieu dai:'); readln(a);

write('Nhap chieu rong:'); readln(b);

writeln('Chu vi la: ',(a+b)*2);

writeln('Dien tich la: ',a*b);

readln;

end.

Câu 3: 

Biến là công cụ trong lập trình. Trong lập trình, biến là tên của vùng nhớ được dùng để lưu trữ dữ liệu và dữ liệu được biến lưu trữ có thể thay đổi trong khi thực hiện chương trình. 

Cú pháp khai báo biến: Var <tên biến>:<kiểu dữ liệu>;

Ví dụ: var a:integer;

a)

uses crt;

var n,i,kt,j:integer;

begin

clrscr;

repeat

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

until n>1;

writeln('Cac so nguyen to be hon hoac bang ',n,' la: ');

for i:=2 to n do 

begin

kt:=0;

for j:=2 to i-1 do 

  if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

readln;

end.

Bài 1: 

uses crt;

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

i,n,tam,j:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

for i:=1 to n-1 do

for j:=i+1 to n do 

if a[i]<a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Làm giúp em câu 2 với ạ

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=0;

while i<=n do 

  begin

i:=i+1;

s:=s+i;

end;

writeln(s);

readln;

end.

Câu 17: C

Câu 18: A

Câu 19: C

Câu 2: A

Câu 4: C

Câu 6: C

Sửa đề: Tính tổng bình phương các số nhỏ hơn hoặc bằng n

uses crt;

var n,i,s:longint;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

  s:=s+sqr(i);

writeln(s);

readln;

end.