Cho T=1+3+5+…+199 Viết lập trình Pascal sử dụng câu lệnh lặp để tính tổng T

0 bình luận về “Cho T=1+3+5+…+199 Viết lập trình Pascal sử dụng câu lệnh lặp để tính tổng T”

1. program ct;

   uses crt;

   var T:real;

         i:integer;

   begin clrscr;

        T:=0;

      for i:=1 to 199 do

        if i mod 2<>0 then T:=T+i;

      writeln(‘Tong T la: ‘,T:4:2);

   readln;

   end.

   Học tốt!

   Bình luận

2. program tinhtong;

   uses crt;

   var i,t:longint;

   begin

   clrscr;

   i:=-1;

   while i<199 do

   begin

   i:=t+2;

   t:=s+i;

   end;

   writeln (‘ Tổng = ‘,t);

   readln

   end.

   Bình luận