giúp mik mấy bạn ui
Bài 1: Nhập vào số nguyên x.Kiểm tra x có phải là số chính phương không?
Bài 2: Nhập vào 3 số bất kỳ, kiểm tra xem đó là 3 cạnh của một tam giác hay không, và đó là tam giác gì(cân,đều,vuông)
Bài 3: Nhập vào 2 số nguyên a,b.Viết chương trình giải phương trình bậc nhất ax+b=0
Bài 4: Viết chương trình nhập điểm trung bình của học sinh và in ra màn hình kết quả dưới dạng”Gioi,”Kha”,”Trung Binh”
Bài 5: Nhập vào số nguyên n,viết chương trình tính n!
n!=1*2*3…*n
Bài 6: Tính tổng của n số tự nhiên đầu tiên, với n là số nguyên dương và được nhập từ bàn phím
Bài 7: Tính tổng
S= 1+2+3…+/+…+100
Bài 8: Tính tổng
S= 1=+1/2+1/3+…+1/n
với n là số nguyên dương cho trước
program giai_thua;
uses Crt;
var n:Integer;
function giaithua(n:Integer):LongInt;
begin
if n=0 then
giaithua:=1
else
giaithua:=n*giaithua(n-1);
end;
begin
clrscr;
Write(‘Ban muon tinh giai thua cua bao nhieu: ‘);
ReadLn(n);
WriteLn(n,’!= ‘,giaithua(n));
ReadLn;
end.
program giaithua;
uses crt;
var n,i:byte;
kq:real;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
kq:=1;
for i:=2 to n do
kq:=kq*i;
write(n,’!= ‘,kq:2:0);
readln
end.