mn giải chi tiết giúp e đc hông ạ viết chương trình tính tổng sau: a, S= 1 + 2+3+-..+50 b, S= 2+3+4+-..+55

0 bình luận về “mn giải chi tiết giúp e đc hông ạ viết chương trình tính tổng sau: a, S= 1 + 2+3+-..+50 b, S= 2+3+4+-..+55”

1. Program BTT;
   Uses crt;
   Var i,s: longint;
   Begin
           Clrscr;
           s:=0;
           For i:=1 to 50 do s:=s+i;
           Write(s);
           Readln
   End.

   —

   Program BTT;
   Uses crt;
   Var i,s: longint;
   Begin
           Clrscr;
           s:=0;
           For i:=2 to 55 do s:=s+i;
           Write(s);
           Readln
   End.

   Trả lời

2. a)

   var s,i:longint;

   begin

   for i:=1 to 50 do

   s:=s+i;

   write(‘Tong tu 1 den 50 la: ‘,s);

   readln;

   end.

   b)

   var s,i:longint;

   begin

   for i:=1 to 55 do

   s:=s+i;

   write(‘Tong tu 1 den 55 la: ‘,s);

   readln;

   end.

   Trả lời