viết chương trình tính tổng dãy số gồm n số : S=9+99+999+… (n nhập từ bàn phím)

0 bình luận về “viết chương trình tính tổng dãy số gồm n số : S=9+99+999+… (n nhập từ bàn phím)”

1. uses crt;

   var n,i:lognint;

   begin

   clrscr;

   write(‘Nhap n: ‘); readln(n);

   for i:=1 to n do

   s:=s+(i*9);

   writeln;

   write(‘S= ‘,s);

   readln;

   end.

   Bình luận

2. uses crt;

   var i,n,m:longint;

   a:array[1..1000]of integer;

   begin

   write(‘nhap do dai cua day so:’);readln(n);

   m:=0;

   for i:=1 to n do begin

   write(‘nhap phan tu thu ‘,i,’ cua mang:’);readln(a[i]);

   m:=m+a[i];

   end;

   write(‘ tong cua day so la:’,m);

   readln

   end.

   Bình luận