Giải bởi Vietjack
Lời giải:
Program tinh_tong;
uses crt;
const : N:=100;
Var i,tong:integer;
begin
clrscr;
tong:=0; i:=1;
while i<=N do
begin
tong: = tong + i;
i:=i+1;
end;
Writeln('tong cua 100 so tu nhien dau tien la ',tong);
Readln ;
End.
Gói VIP thi online tại VietJack (chỉ 400k/1 năm học), luyện tập gần 1 triệu câu hỏi có đáp án chi tiết
