Câu Lệnh Lặp làm bài tập : Tính tổng các số từ 1 đến 15 ai giải được giải dùm a em sẽ cảm ơn

2 câu trả lời

program window

uses crt;

var sum,i:integer;

begin

clrscr;

sum:=0;

for i:=1 to 15 do sum:=sum+i;

writeln('tong: ',sum);

readln;

end.

Chúc bạn học tốt!

program oken;

uses crt;

var sum,i:integer;

begin

clrscr;

sum:=0;

for i:=1 to 15 do sum:=sum+i;

writeln('tong: ',sum);

readln;

end.

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