Viết chương trình Pascal tính tổng S = 11+12+-+50 và đưa ra màn hình giá trị cho S

0 bình luận về “Viết chương trình Pascal tính tổng S = 11+12+-+50 và đưa ra màn hình giá trị cho S”

1. uses crt;

   var s, i : integer;

   begin

   s:=0;

   for i:=11 to 50 do s:=s+i;

   write (‘ S=’,s);

   end.

   Bình luận

2. uses crt;

   var i,s: word;

   begin

   clrscr;

   for i:=11 to 50 do s:=s+i;

   writeln (‘tong s=11+12+…+50= ‘,s);

   readln;

   end.

   xin hay nhất ạ !!!

   Bình luận