uses crt;
var x,n,i:integer;
lt:longint;
begin
clrscr;
write('co so x='); readln(x);
write('so mu n='); readln(n);
lt:=1;
for i:=1 to n do
lt:=lt*x;
writeln(x,'^',n,'=',lt);
readln;
end.
uses crt;
var x,n,i:integer;
lt:longint;
begin
clrscr;
write('co so x='); readln(x);
write('so mu n='); readln(n);
lt:=1;
for i:=1 to n do
lt:=lt*x;
writeln(x,'^',n,'=',lt);
readln;
end.
BT1: Viết chương trình tính lũy thừa bậc n của x (xn) với n là số nhập từ bàn phím
BT2: Viết chương trình tìm số lớn nhất trong các số đã cho, với n là số nhập từ bàn phím
Viết chương trình nhập vào từ bàn phím hai số nguyên dương x và n. Hãy tính x!+(x^2)!+....+(x^n)!. Pasacal
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
viết chương trình nhập số tự nhiên n tính và in ra màn hình căn bậc 2 của các số từ 1 đến n
1 Viết chương trình tính n!=1.2.3.4....n vs n là số nguyên được nhập vào từ bàn phím.
2 Viết chương trình tính t=1+2+3+4+....+n vs n là số nguyên được nhập vào từ bàn phím.
Câu 1: Viết chương trình nhập 10 số nguyên N và tính tổng các số đó
Câu 2: Viết chương trình nhập 10 số nguyên N và in ra màn hình số lượng các số chẳn đã nhập được
Câu 3: Viết chương trình nhập 2 số M, N (M nhỏ hơn N) in ra màn hình các số lẻ có trong khoảng từ M đến N
Các bạn ai đó giúp mình làm những bài này nhé. Cảm ơn!
Bài 1: Viết chương trình tính tổng các số chẵn từ 10 đến 50?
Bài 2: Viết chương trình giải bài toán sau: Tính tổng A ( n là số tự nhiên được nhập từ bàn phím)
A= 1.3 + 2.4 + 3.5 +...+ n(n+2).
Giúp mình với nhanh nhanh nha.
Viết chương trình nhập N số nguyên từ bàn phím in các số lẻ ra màn hình(sử dụng câu lệnh lặp với số lần biết trước)
Viết chương trình tính tổng theo công thức:
s=1^2-2+3^2-4+...+(n-1)^2-n
Với n là số nguyên dương nhập từ bàn phím.
Giúp mình giải gấp. Cảm ơn!