Viết chương trình pascal tính tích n số tự nhiên

Copyright © 2022 Hoc247.net

Đơn vị chủ quản: Công Ty Cổ Phần Giáo Dục HỌC 247

GPKD: 0313983319 cấp ngày 26/08/2016 tại Sở KH&ĐT TP.HCM

Giấy phép Mạng Xã Hội số: 638/GP-BTTTT cấp ngày 29/12/2020

Địa chỉ: P401, 54A Nơ Trang Long, Phường 14, Q.Bình Thạnh, TP.HCM

Copyright © 2022 Hoc247.net

Đơn vị chủ quản: Công Ty Cổ Phần Giáo Dục HỌC 247

GPKD: 0313983319 cấp ngày 26/08/2016 tại Sở KH&ĐT TP.HCM

Giấy phép Mạng Xã Hội số: 638/GP-BTTTT cấp ngày 29/12/2020

Địa chỉ: P401, 54A Nơ Trang Long, Phường 14, Q.Bình Thạnh, TP.HCM

Var i ,n : integer;

S , T : real;

Begin

write ('n=') ; read (n) ;

S:= 0;

T:= 1;

For i:= 1 to n do

S:= S + i;

T:= T * i;

Writeln (' Tong cua ' ,n,' so dau tien la' , S );

Writeln (' Tich của ' ,n,' so dau tien la' , T );

Readln;

End.

Answers ( )

Leave an answer

Autumn

• Mtrend News
  • Mtrend Music
  • Mtrend Thời Trang
  • Ảnh đẹp
  • Món Ngon Mỗi Ngày
  • Kiến thức máy tính
  • Kiến thức Xã Hội
  • Mtrend MMO
  • Kiến thức Moba
    • Liên Minh Huyền Thoại
    • Liên Quân Mobile
• Phong thủy
  • Xem tử vi
  • Giải mã giấc mơ
• Góc Review
  • Skincare
  • Thực phẩm chức năng

Home/ Môn học/Tin học/Viết chương trình tính tích các số từ 1 đến n vs n nhập vào từ bàn phím, n nguyên dương .

Answers ( )

1. khanhngan

   0

   2021-08-15T09:28:59+00:00 15/08/2021 at 09:28

   Reply

   Program BTH;
   uses crt;
   var n,i:longint;
   s:word;
   begin
           clrscr;
           Repeat
           write(‘Nhap n: ‘);readln(n);
           If n mod 2=1 then
                   writeln(‘So nhap khong hop le moi nhap lai’);
           until n>0;
           s:=1;
           For i:=1 to n do
                   s:=s*i;
           write(‘Tong day so tren la: ‘,s);
           readln;
   end.

3. thucquyen

   0

   2021-08-15T09:29:07+00:00 15/08/2021 at 09:29

   Reply

   program oken;
   uses crt;
   var n,i: integer;
       t: qword;
   begin
           clrscr;
           write(‘nhap 1 so n: ‘); readln(n);
           t:=1;
           for i:=1 to n do
                t:=t*i;
           Writeln(‘tich cua cac so tu 1 den ‘,n,’: ‘,t);
           readln;
   end.

Leave an answer

Name*

E-Mail*

Website

Featured image

Browse

Captcha* 35:5x4+1-9:3 = ? ( )

Answer*

Amara

About Amara