1. Viết chương trình nhập vào chiều dài và chiều rộng hình chữ nhật từ bàn phím, in ra màn hình chu vi và diện tích của hình chữ nhật đó?
2. Viết chương trình nhập số nguyên dương Xtừ bàn phím, in ra màn hình kết quả cho biết số đó có chia hết cho 2 và 3 ?
3. Viết chương trình nhập vào 3 số nguyên dươnga, b, c từ bàn phím, in ra màn hình kết quả 3 số đó có thể là độ dài 3cạnh của một tam giác hay không?
4. Viết chương trình nhập số nguyên dương Xcó 2 chữ số, in ra màn hình cho biết số hàng chục và đơn vị của số X?
5. Viết chương trình tính tổng N số tự nhiên đầu tiên?
6. Viết chương trình tính N! (Với N! = 1*2*3*...*n)?
7. Viết chương trình nhập vào hai số a,b. Kiểm tra tổng của chúng có phải là số dương và chia hết cho 3 hay không?
8.Viết chương trình tính tổng sau, biết rằng n nhập từ bàn phím:
S= 1/2+2/3+3/4+..+n/n+1
Giup minhf với nhé mọi người, mình ngu tin lắm
Câu 1:
uses crt;
var dai,rong,cv,dt:real;
begin
clrscr;
write('nhap chieu dai:'); readln(dai);
write('nhap chieu rong:'); readln(rong);
if (dai>0) and (rong>0) and (dai>=rong) then
begin
cv:=(dai+rong)*2;
dt:=dai*rong;
writeln('chu vi hinh chu nhat la: ',cv:4:2);
writeln('dien tich hinh chu nhat la: ',dt:4:2);
end
else writeln('vui long nhap lai');
readln;
end.
Câu 2:
uses crt;
var x:integer;
begin
clrscr;
write('x='); readln(x);
if x>0 then
begin
if (x mod 2=0) and (x mod 3=0) then writeln(x,' chia het cho 2 va 3')
else writeln(x,' khong chia het cho 2 va 3');
end
else writeln('vui long nhap x nguyen duong');
readln;
end.
Câu 3:
uses crt;
var a,b,c:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then writeln('day la ba canh trong mot tam giac')
else writeln('day khong la ba canh trong mot tam giac');
end
else writeln('vui long nhap lai');
readln;
end.
Câu 4:
uses crt;
var x,ch,dv:integer;
begin
clrscr;
write('x='); readln(x);
if (10<=x) and (x<=99) then
begin
dv:=x mod 10;
ch:=x div 10;
writeln('chu so hang don vi la: ',dv);
writeln('chu so hang chuc la: ',ch);
end
else writeln('vui long nhap so co hai chu so');
readln;
end.
Câu 5:
uses crt;
var n,t,i:integer;
begin
clrscr;
write('nhap n='); readln(n);
if n>0 then
begin
t:=0;
for i:=0 to n-1 do
t:=t+i;
writeln('tong cua ',n,' so tu nhien dau tien la: ',t);
end
else writeln('vui long nhap lai');
readln;
end.
Câu 6:
uses crt;
var n,i:integer;
gt:int64;
begin
clrscr;
write('nhap n='); readln(n);
if n>=0 then
begin
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(n,'!=',gt);
end
else writeln('vui long nhap lai');
readln;
end.
Câu 7:
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if (a+b>0) and ((a+b) mod 3=0) then writeln('tong cua ',a,' va ',b,' la so duong va chia het cho 3')
else writeln('tong cua ',a,' va ',b,' khong thoa man dieu kien');
readln;
end.
Câu 8:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i/(i+1);
writeln('Ket qua la: ',s:4:2);
readln;
end.
