Viết chương trình tính tong trong đó có sử dụng chương trình con. S = 1+2+3+…+N ( N<=250)

0 bình luận về “Viết chương trình tính tong trong đó có sử dụng chương trình con. S = 1+2+3+…+N ( N<=250)”

1. uses crt;
   var n:byte;
   function s(n:byte):longint;
   var i:byte;
   begin
      for i:=1 to n do s:=s+i;
   end;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      write(‘Tong tu 1 den ‘,n,’ la: ‘,s(n));
      readln
   end.

   Bình luận

2. program oken;
   uses crt;
   var n:byte;
   function s(n:byte):longint;
           var i:byte;
           begin
                   for i:=1 to n do
                           s:=s+i;
           end;
   begin
           clrscr;
           write(‘Nhap 1 so bat ky: ‘); readln(n);
           writeln(‘Tong tu 1 den ‘,n,’: ‘,s(n));
           readln;
   end.

   Bình luận