Question

Answer 1

Cho mình hỏi bài 2 làm sao vậy mn mong đc giúp

Answer 2

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

Answer 3

Bài 1:

Uses crt;
Var I: real; x,n:integer;
Begin
 Clrscr;
Writeln('Nhap so n vao day:'); Readln(n);
I:=0;
 For x:= 1 to n do I:=I+1/x;
Writeln('Vay tong cua I la:',I);
Readln
End.