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

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”

1. program ct;

   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.

   Bình luận

2. program Tin_hoc;

   uses crt;

   var i,s,n:integer;

   begin

   clrscr;

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

   s:=0;

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

   writeln(‘S=’,s);

   readln;

   end.

   Bình luận