hãy dùng câu lệnh while…do để viết chương trình tính tổng của các số nguyên từ 5 -10

QLinkVN xin trả lời câu hỏi của bạn như sau:

program linkne;
uses crt;
Var n,i: integer;
begin
clrscr; 
i:=5; n:=5;
while i<10 do i:=i+1; n:=n+i;
writeln(‘Tong la: ‘,n);
readln;
end.