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