Viết phương trình tính tổng:S=1+2+3+...+n.Trong đó n là số nguyên nhập từ bàn phím.
2 câu trả lời
program b1;
var s,n,i:integer;
begin
clrscr;
write('nhap so n=');
readln(n);
For i=1 to n do s:=s+1;
writeln('tong la' : , s);
readln
end.
program tong;
uses crt;
var i,s,n:integer;
begin
clrscr;
write('nhap n:=');readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('tong la:',s);
readln
end.
Câu hỏi trong lớp
Xem thêm