viết chương trình tính tổng T=1+2+3+4+5+6+7+8+9+10 bằng câu lệnh lặp với số lặp biết trước for...do

2 câu trả lời

Program BTH;
uses crt;
var i,s:byte;
Begin
    clrscr;
    s:=0;
    For i:=1 to 10 do
        s:=s+i;
    writeln('Tong day so tren la: ',s);
    readln;
end.

Trình bày đẹp cả rồi đấy bạn 

program kaito;

uses crt;

var s, i: integer;

begin

   clrscr;

   for i:=1 to 10 do s:=s+i;

   writeln('T = 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 = ',s);

   readln

end.

CHÚC BẠN HỌC TỐT!!!

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