Câu hỏi:
Giúp em bài tập về nhà Tổng hợp lớp 8 câu hỏi như sau: : Viết chương trình tính tổng số nguyên từ 1-n, n là số nguyên nhập từ bàn phím. Sử dụng vòng lặp while… do
giúp mik nha
Trả lời 2:
Gia Sư Hoàng Khang gữi câu trả lời dành cho bạn:
var i,n,s:integer;
begin
write(‘Nhap so nguyen n: ‘);readln(n);
i:=1; s:=0;
while i<=n do begin
s:=s+i;
inc(i);
end;
writeln(‘Tong so nguyen tu 1->n la: ‘,s);
readln
end.
Trả lời 1:
Gia Sư Hoàng Khang gữi câu trả lời dành cho bạn:
Uses crt;
Var n,S,i: integer;
Begin
clrscr;
Write(‘nhap n=’) ; Readln(n);
i := 1;S:=0;
while i <= n do
begin
S := S + i;
i := i + 1;
end;
writeln (S);
Readln
End.
