Viết chương trình tính tổng n số tự nhiên đầu tiên

0 bình luận về “Viết chương trình tính tổng n số tự nhiên đầu tiên”

1. uses crt;
   var n,i,s:longint;
   begin
         clrscr;
         write(‘Nhap n: ‘); readln(n);
         for i:=1 to n do inc(s,i);
         writeln(‘Tong ‘,n,’ so tu nhien dau tien: ‘,s);
         readln;
   end.

   Bình luận

2. Program Tinh_tong;

   Uses crt;

   Var n,i: longint;

   Begin

   clrscr;

   Write(‘nhap so tu nhien n=’);readln(n);

   Until n>1;

   For i:= 1 to n do n:=n+i;

   Writeln(‘tong n so tu nhien dau tien la’,n);

   Readln;

   End.
   5 sao và hay nhất được hong UwU

   Bình luận