Viết câu lệnh tính tổng số xu mà thỏ con tiết kiệm được đến ngày thứ 10 bằng câu lệnh lặp tính tổng S=1+2+3+…+10 Turbo pascal nha!!!!!!!!!!!!!!!!!!!

0 bình luận về “Viết câu lệnh tính tổng số xu mà thỏ con tiết kiệm được đến ngày thứ 10 bằng câu lệnh lặp tính tổng S=1+2+3+…+10 Turbo pascal nha!!!!!!!!!!!!!!!!!!!”

1. program im_14424;

   uses crt;

   var S: integer;

         N: byte;

   begin

   clrscr;

   writeln(‘Nhap vao gia tri cua S:’);

   readln(S);

   S:=S+1;

   for N:=2 to 10 do S:=S+N;

   writeln(‘Tong S= ‘, S:5:3);

   readln

   end.

   Bình luận

2. program tinhtong;

   uses crt;

   var i,t:byte;

   begin

   clrscr;

   t:=0;

   for i:=1 to 10 do

    t:=t+i;

   write(‘So xu tiet kiem duoc la: ‘,t);

   readln

   end.

   Bình luận