KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Uses crt; Var s, i, n:integer; Begin Clrscr; Write(‘Nhap n = ‘); readln(n); s:=0; For i:=1 to n do inc(s, i); Writeln(‘Tong cua S la: ‘,s); Readln End.
program az;
uses Crt;
var i,n,S : real;
begin
clrscr;
Write(‘Nhap n: ‘); readln(n);
For i:=1 to n do S:=S+i;
write(‘S là : ‘,S);
readln
end.
Uses crt;
Var s, i, n:integer;
Begin
Clrscr;
Write(‘Nhap n = ‘); readln(n);
s:=0;
For i:=1 to n do inc(s, i);
Writeln(‘Tong cua S la: ‘,s);
Readln
End.