viết chương trình in ra màn hình tổng của n chữ số với n nhập vào bằng bàn phím.

0 bình luận về “viết chương trình in ra màn hình tổng của n chữ số với n nhập vào bằng bàn phím.”

1. program bt1;

   uses crt;

   var i,n,s: integer;

   begin

   clrscr;

   write(‘nhap n:’);readln(n);

   s:=0;

   for i:=1 to n do s:=s+i;

   writeln(‘tong la:’,s);

   readln

   end.

   Bình luận

2. var

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

   n,i,d:integer;

   begin 

   write(‘nhap n=’);readln(n);

   d:=0;

   for i:=1 to n do

   begin

   write(‘a[‘,i,’]=’);

   readln(a[i]);

   d:=d+a[i];

   end;

   writeln(‘tong n chu so=’,d);

   readln;

   end.

   Bình luận