HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
Trường mình thi rồi nhưng đề dễ lắm, không khó như câu này đâu .
program tong;
var s,i : integer;
begin
i:=0; s:=0;
while S < 100 do
S:=s+i;
i:=i+1;
end;
writeln('Tong nho nhat lon hon 100 la: ',s);
writeln('So lan lap la: ',i);
readln
end.