Viết chương trình tính tổng các số tự nhiên từ 15-25.thông báo kết quả in trên màn hình

2 câu trả lời

Var i s:byte

For i:=15 to 25 do

s:=S+i

Write('S=',S)

Readln

end

Program Hotboy 

Uses crt;

Var S,i : integer ;

Begin

Clrscr ;

S:=0;

For i:= 15 to 25 do

S:=S+i;

Writeln('tong tu 15 den 25 la',S);

Readln

End.