Viết chương trình Pascal tính tổng các phần tử cải cấp số cộng có n phần tử biết rằng phần tử thứ nhất là a và công sai là d

0 bình luận về “Viết chương trình Pascal tính tổng các phần tử cải cấp số cộng có n phần tử biết rằng phần tử thứ nhất là a và công sai là d”

1. vote mik nha

   program bt;
   uses crt;
   var i,n,s,d,a:integer;
   begin
    clrscr; i:=1;
    write(‘Nhap a: ‘); readln(a);
    write(‘Nhap d: ‘); readln(d);
    write(‘Nhap n: ‘); readln(n);
    while (i<=n) do
    begin
      s:=s+a+(i-1)*d;
      inc(i);
    end;

    writeln(‘Tong: ‘,s);
    readln;
   end.

   Bình luận