1) Viết chương trình tính tổng 10 số tự nhiên đầu tiên 2) Viết chương trình tính tổng từ 1 đến 50 HELP ME !!!

0 bình luận về “1) Viết chương trình tính tổng 10 số tự nhiên đầu tiên 2) Viết chương trình tính tổng từ 1 đến 50 HELP ME !!!”

1. Câu 1:

   program bt;

   uses crt;

   var tong, i: byte;

   begin

     clrscr;

     tong := 0;

     for i := 1 to 10 do tong := tong + i;

     writeln(‘Tong la=’, tong);

     readln

   end.

   Câu 2:

   program bt;

   uses crt;

   var S, i: integer;

   begin

     clrscr;

     S := 0;

     for i := 1 to 50 do S := S + i;

     writeln(‘Tong la=’, S);

     readln

   end.

   Bình luận

2. Bài 1

   program tinh tong;

   uses crt;

   var s,i,n:integer;

   begin

   s:=0;

   for i:=1 to 10 do s:=s+1;

   writeln (‘tong cua s=’,s);

   readin

   end.

   Bài 2

   program tinh_tong

   uses crt;

   var i,n:integer;

   S:longint;

   begin

   n:=50; S:=1;

   for i:=1 to 50 do S: S+i;

   write(‘ tong cua’,n,’ so tu nhien dau

   ,S); tien la ‘

   readin.

   end.

   Mình gửi ảnh chứ vt ko đc
   

   Bình luận