Tính tổng từ 1 đến 10 bằng lệnh lặp for... do

2 câu trả lời

Program Hotboy ;

Uses crt;

Var s,i : byte ;

Begin

Clrscr;

S:=0;

For i:=1 to 10 do

S:=S+i;inc(i);

Write('tong tu 1 den 10 la',S);

Readln

End.

Program BTH;

Uses crt; 

Var i,s:longint;

Begin

Clrscr;

s:=0;

For i:=1 to 10 do

s:=s+i;

Writeln('Tong day so tren la: ',s);

Readln;

End.

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