Viết chương trình tính S=1+2+3+4-.+n Làm trên pascal nha mấy bạn

0 bình luận về “Viết chương trình tính S=1+2+3+4-.+n Làm trên pascal nha mấy bạn”

1. program qua_la_de;

   uses crt;

   var S,n,i,: interger;

   begin

   S:=0;

   writeln(‘ day gom co so phan tu la: ‘);       readln(n);

   for i:= 1 to n do

   S:=S+i;

   writeln(‘vay tong la: ‘,S);

   readln; end.

   Bình luận

2. Program BTH;
   uses crt;
   var a,b:longint;
   c:qword;
   Procedure BTH;
   Begin
   For a:=1 to b do
   c:=c+a;
   end;
   Begin
   clrscr;
   write(‘Nhap so cuoi: ‘);readln(b);
   BTH;
   Writeln(‘Tong day so tren la: ‘,c);
   readln;
   End.

   Ok chưa bạn :)))))

   Bình luận