Bài 2: Lỗi sai:
a) Sau while không phải là một phép so sánh
b) trước do có dấu chấm phẩy
c) phép so sánh 1=1
d) dính vào vòng lặp vô hạn
Bài 3:
program Tin;
uses crt;
var i,s,n:integer;
begin
clrscr;
writeln('Nhap mot so nguyen duong n: ') ;readln(n);
s:=0;
i:=0;
while i<n do
begin
i:=i+1;
s:=s+i
end;
writeln('S=',s);
readln;
end.
CHO MIK CÂU TLHN NHA