uses crt;
var n,i:longint;
gt:real;
begin
clrscr;
write('Nhap n='); readln(n);
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(n,'!=',gt:0:0);
readln;
end.
uses crt;
var n,i:longint;
gt:real;
begin
clrscr;
write('Nhap n='); readln(n);
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(n,'!=',gt:0:0);
readln;
end.
Viết chương trình sử dụng hàm tính lũy thừa của số nguyên y
Viết lại hoàn chỉnh chương trình tích tổng 4 lũy thừa lũy thừa =a^n+b^n+c^n+d^n trong đó có sử dụng chương trình con là chương trình lũy thừa x^k
Viết chương trình để tính và thông báo lên màn hình T=n!+m!.Với m,n là hai số nguyên nhỏ hơn 50 được nhập từ bàn phím .
Yêu cầu:Chương trình có khai báo và gọi hàm tính giai (k!)
Giúp em giải theo dạng pascal với ạ..em cảm ơnnnn..
Bài 2:Viết chương trình cho phép nhập số nguyên dương N rồi thực hiện
a. cho biết N có phải là lũy thừa ba của một số hay không
b. Viết N dưới dạng một lũy thừa với số mũ là số tự nhiên của 5, viết không nếu N không phải là lũy thừa của 5
c. Tìm số dư khi N mũ n chia cho 7
Mik cần gấp ạ, giúp mik với và bằng Pascal nhé!!!!
Viết hàm tính n giai thừa của một số nguyên dương(n!)
viết chương trình tính tổng 3 số thực yêu cầu trong chương trình có sử dụng hàm tính tổng của hai số thực
1 Viết chương trình nhập mạng một chiều n tính và in ra màn hình tổng số lẻ 2 viết chương trình nhập vào một xâu từ văn phím viết chương trình chuẩn hóa xâu bằng cách xóa các ký tự trống ở đâu xâu và cuối xâu 3 Viết các thao tác và lần tương ứng cần thực hiện để đọc một giá trị từ tệp ‘ DL.TXT ‘ Ghi giá trị vừa đọc vào tệp ‘KQ.TXT’ Giúp mình với ạ
Viết chương trình tính tổng sau:
Viết chương trình tính giá trị biểu thức sau
T=a!+b!+(a-b)!
Với a,b nguyên dương (a>b) được nhập vào từ bàn phím. Chương trình có sử dụng chương trình con hàm hoặc thủ tục