viết chương trình tính tổng 1+2+3+…+n cho nói xíu: mình tuyển thành viên cho nhóm programmer

0 bình luận về “viết chương trình tính tổng 1+2+3+…+n cho nói xíu: mình tuyển thành viên cho nhóm programmer”

1. Program Tinh_tong

   Uses Crt;

   Var i, N : integer; S: longint;

   Begin Clrscr;

   Write ( ‘Cho N=’); Readln(N);

    S:= 0

   For i:= to N do S:= S=i;

   write(‘S=’S);

   Readln;

   End.

   Chúc bạn học tốt đây là bài thầy mình dạy nên mình chép lại nha

   Bình luận

2. 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