Giúp em với mọi người ơi, em cần làm đúng và chính xác nha * Đề: Viết chương trình tính tổng 6 số tự nhiên đầu tiên

2 câu trả lời

Program tinh_tong ;

Uses crt ;

Var S,i : integer ;

Begin

S:= 0 ;

For i:= 1 to 6 do

S:= S+ i ;

Writeln ('Tong 6 so tu nhien dau tien la: ',S);

Readln

End.

uses crt;

var i, s : integer;

Begin clrscr;

s:=0;

for i :=1 to 6 do

s:=s+i;

writeln('Tong 6 so tu nhien dau tien la :',s);

readln

end.

Câu hỏi trong lớp Xem thêm