Tính Tổng S=1+3+…+75 viết chương trình

0 bình luận về “Tính Tổng S=1+3+…+75 viết chương trình”

1. uses crt;

   var i,s: integer;

   begin

   clrscr;

   for i:=1 to 75 do

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

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận

2. uses crt;

   var t:integer;

   begin

            clrscr;

            t:=(75+1)*38/2;

            writeln(‘tong la: ‘,t);

   readln;

   end.

   Bình luận