2 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
