viết chương trình tính tích từ 10 đến 100 Viết chương trình tính tổng 100 đến 1000 Mọi nguoi giup em voi ạ

0 bình luận về “viết chương trình tính tích từ 10 đến 100 Viết chương trình tính tổng 100 đến 1000 Mọi nguoi giup em voi ạ”

1. Viết chương trình tính tích từ 10 đến 100:

   Program Tinh_tich;

   Uses Crt;

   Var S : real;

   Begin

   S := 1;

   For i := 10 to 100 do S := S×i;

   Write (‘tich cac so tu 10 den 100 là ‘, S);

   End.

   Viết chương trình tính tổng 100 đến 1000

   Program Tinh_tong;

   Uses Crt;

   Var S : real;

   Begin

   S := 0;

   For i := 100 to 1000 do S := S+i;

   Write (‘tong cac so tu 100 den 1000 là ‘, S);

   End.

   Bình luận

2. Viết chương trình tính tích từ 10 đến 100:

   uses crt;
   var i:longint; tich:qword;
   begin
   clrscr;
      tich:=1;
      for i:=10 to 100 Do  tich:=tich*i;
      writeln(‘Tich cac so tu 10 den 100: ‘,tich);
   readln
   end.

   Viết chương trình tính tổng 100 đến 1000:

   uses crt;
   var i,tong:longint; 
   begin
   clrscr;
      tong:=0;
      for i:=100 to 1000 Do  tong:=tong+i;
      writeln(‘Tong cac so tu 100 den 1000: ‘,tong);
   readln
   end.

   Bình luận