Day la bai 2 ban nha

Nếu chỉ là lệnh If..then chỉ với "Đạt" và "Chưa đạt" đơn giản thì:

Uses Crt;
Var diemtb:real;
Begin
   Clrscr;
Writeln('Nhap diem tb vao day:'); Readln(diemtb);
If diemtb>=8.0 then writeln('Dat') else if diemtb<8.0 then writeln('Chua dat');
Readln
End.
*Còn nếu có các câu lệnh như "HS giỏi", "HS khá", HS tb" thì có thể viết Ctrinh tương tự. GOOD LUCK FOR YOU :D

Uses crt;
Var a,b,n:integer; {hoặc real,longint {tùy vào đơn vị của các số có nhỏ hay lớn}}
Begin
Writeln('Nhap so n la:'); Readln(n);
a:=0; b:=0;
While a<=n do
 Begin
   b:=b+a;
   a:=a+1; {chỉ áp dụng khi tính tổng liên tiếp từ 1->n, không áp dụng tính tổng các số chẵn}
 end;
Writeln('Vay tong cac so tu 1 -> ',n,' la:',b);
Readln
End.
*Nếu bạn muốn giải theo cách for..do hay tính tổng các số chẵn hay gì gì đó liên quan đến Tin học thì bảo mình nhé* Good luck for you :D :D 

Với "while do' thì:

Var a,b:real;(hay "a,b:longint;" {làm thế này thì nó sẽ in ra kiểu số nguyên, mình cũng không chắc nữa})
Begin
a:=150;
While a<=1500 do
Begin
b:=b+a;
a:=a+2;
End;
Writeln('Vay tong cac so chan la',b);
Readln
End.

*Với " while..do "  

Var a,b:integer;
Begin
a:=0; b:=0;
While a<=10 do
Begin
b:=b+a;
a:=a+2;
end;
Writeln('Vay tong cac so chan tu 1 den 10 la:',b);
Readln
End.
Yên tâm vì nó đúng. Nếu có thể thì mong bạn check lại để an tâm hơn :D

Cái chỗ S:= 0 ở cách 2  thì thêm ; Ở sau dòng lệnh là "S:=0;" nhé

*Với while..do
  Var a,b:integer;
     Begin
   a:=0; b:=0;
  While a<=10 do
Begin
 b:=b+a;
 a:=a+2;
end;
 Writeln('Vay tong cac so chan tu 1 den 10 la:',b);
Readln
End.

*Với for...do (đơn giản hơn chút)
Uses crt;
Var a,S:integer;
Begin
S:=0
For a:=1 to 10 do
Begin
If a mod 2 =0 then S:=S+a;
end;
Writeln('Vay tong cac so so chan tu 1 den 10 la',S);
Readln
End.
Viết a,b và a,S cả hai cách làm cho bạn dễ hình dung ạ! Sr for the late reply!