Cho T = 1+3+5+…+100=? 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+…+100=? Viết lập trình pascal sử dụng câu lệnh lặp để tính tổng T”

1. program oken;

   uses crt;

   var t,i: longint;

   begin

   clrscr;

   for i:=1 to 100 do

   if (i mod 2<>0) then t:=t+i;

   writeln(‘Tong T=’,t);

   readln;

   end.

   Bình luận

2. uses crt;

   var

   begin

   clrscr;

   for i:= 1 to 100 do

   if i mod 2=1 then

   s:=s+i;

   writeln(‘Tong t la:’,s);

   readln;

   end.

   Bình luận