M.n lm giúp mjk vs ạ hứa vote 5 * Viết chương trình tính tổng 1+2+3+4…t là giá trị do người sử dụng nhập

0 bình luận về “M.n lm giúp mjk vs ạ hứa vote 5 * Viết chương trình tính tổng 1+2+3+4…t là giá trị do người sử dụng nhập”

1. program oken;
   uses crt;
   var s,t,i:longint;
   begin
           clrscr;
           write(‘nhap so T: ‘); readln(t);
           s:=0;
           for i:=1 to t do
                   s:=s+i;
           writeln(‘Tong cac so tu 1 den ‘,t,’: ‘,s);
           readln;
   end.

   Bình luận

2. Program BTH; 
   uses crt;
   var t,s,i:longint;
   Begin
       clrscr;
       write(‘Nhap t: ‘);readln(t);
       For i:=1 to t do 
           s:=s+i;
       writeln(‘Tong day so tren la: ‘,s);
       readln;
   end.

   Bình luận