viết trương trình nhập vào số nguyên x từ bàn phím in ra màn hình tổng số x số tự nhiên đầu tiên

0 bình luận về “viết trương trình nhập vào số nguyên x từ bàn phím in ra màn hình tổng số x số tự nhiên đầu tiên”

1. program ct;

   uses crt;

   var x,i,s:integer;

   begin

   clrscr;

   write(‘nhap x:=’);readln(x);                

   s:=0;

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

   writeln(‘tong la:’,s);

   readln

   end.

   Bình luận

2. uses crt;
   var x,t,i : integer;
   begin clrscr;    t:=0;
   write(‘Nhap x:’); readln(x);
   for i:=1 to x do t:=t+i;
   write(‘Tong la :’,t);
   readln
   end.

   Bình luận