Viết chương trình tính tổng sau s=2+4+6+8…+100 sử dụng lệnh while-do

0 bình luận về “Viết chương trình tính tổng sau s=2+4+6+8…+100 sử dụng lệnh while-do”

1. program Tin_hoc;

   uses crt;

   var i,s:integer;

   begin

   clrscr;

   i:=0;

   s:=0;

   while i<=100 do

   begin

   s:=s+i;

   i:=i+2

   end;

   writeln(‘S=’,s);

   readln;

   end.

   Trả lời

2. Program BTH;
   Uses Crt;
   var s:longint;
   i:byte;
   Begin
           clrscr;
           s:=0;
           while i<=100 do
           begin
                   s:=s+i;
                   i:=i+2;
           end;
           writeln(‘Tong day so tren la: ‘,s);
           readln;
   end.

   Trả lời