Viết chương trình tính tổng dãy sốđược cho như sau: S=1+2+3+4+5+6+...+n, với n là sốtựnhiên được nhập từbàn phím(n<10). ai giúp em vs ạ
2 câu trả lời
program oken;
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n: '); readln(n);
s:=0;
for i:= 1 to n do
s:=s+i;
writeln('S=',s);
readln;
end.
Program BTH;
uses crt;
var n,s,i:byte;
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