Viết chương trình tính tổng: S=1+2+3+…+n.Trong đó n là số nguyên nhập từ bàn phím Trả lời đúng được vote tối đa

0 bình luận về “Viết chương trình tính tổng: S=1+2+3+…+n.Trong đó n là số nguyên nhập từ bàn phím Trả lời đúng được vote tối đa”

1. Program      tinh_tong;

   Uses          Crt;

   var             i,d,n: integer;

   Begin

   clrscr;

   writeln(‘Nhap so n:’); readln (n);

   d:=0;

   For i:=1 to n do

   d:=d+i;

   write (‘ Ket qua la:=’ , d);

   readln;

   End.

   Bình luận

2. program likingaboss;

   uses crt;

   var s,i,n: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.

   Xin hay nhất :))

   Bình luận