viết chương trình tích tổng của 20 số tự nhiên đầu tiên

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

1. Program tinhtong;

   Uses Crt;

   Var P,i:Integer;

   Begin

            clrscr;

   P:=1;

   For i:=1 to 20 do P:=P+i;

   Write(‘Tong cua 20 so tu nhien dau tien:’,P);

   End.

   (ngoài lề phần write không ghi dấu nhé)

   HỌC TỐT NHÉ !

   Bình luận

2. program phuongt;

   uses crt;

     var s, i: integer;

   begin

              clrscr;

              s:=0;

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

              write(‘Tong = ‘, s);

              s:=0;

              for i:=1 to 20 do s:=s*i;

              write(‘Tich = ‘, s);

              readln

   end.

   Bình luận