Var i,n:integer;
s:real;
Begin
Write('Nhap n = ');readln(n);
s:=0;
For i:=1 to n do
s:=i/(i+1);
Write('Tong la ',s:10:2);
Readln;
End.
cho dãy a gồm N số nguyên . Viết chương trình tính và đưa ra màn hình tổng các số vừa chia hết cho 2 vừa chia hết cho 3
câu 1 viết chương trình tính A:=(a3+b3)/sqrt(a+b) nếu a,b>0 các số a,b nhập từ bàn phím.
câu 2 viết chương trình tích 2 số a,b nếu a không chia hết cho 5. Biết rằng a,b là số nguyên dương
câu 3 viết chương trình tính biểu thức S:=2+4+6++..+N với N được nhập từ bàn phím
mọi người giúp e đề thi HKI em ạ
1. viết chương trình nhập vào 4 số nguyên a, b, c, d .Tính tích và trung bình cộng của 4 số này
2. viết chương trình nhập vào 3 cạnh của 1 hình tam giác. Tính chu vi và diện tích của tam giác đó
3. viết chương trình nhập vào dộ cao của 1 vật. Tính vận tốc rơi tự do của vật đó
Bài 1 :
Viết chương trình tính biểu thức
P = 1 +22 + 32 + ... + 102
Bài 2 :
1 + 2 + 3 + ... + n ( cho đến n > 101,3 )
câu 1
a, viết chương trình để nhập 1 số tự nhiên tù bàn phím và in ra màn hình số đó có phải là số pytago hay không . số n lá số pytago nếu n >=3 và n^2=(n-1)^2+(n-2)^2 ?
b,viết chương trình nhập 3 số tự nhiên a,b,c từ bàn phím và in ra màn hình thông báo chúng có là bộ số pytago hay không ? câu 2 viết CT tìm ước chung lớn nhất và bội chung nhỏ nhất của hai số nhập vào bàn phímHãy cho kết quả đúng cho đoạn chương trình sau
Begin
S:=0
for a:=1 to 3 do
for b:=1 to 5 do If ((a*b) mod 2 =0) then S:=S = a*b
Write("S=",S) ;
Viết khai báo cho chương trình, nhập hai số thực từ bàn phím. Tính tổng của 2 số đó, nếu số thứ nhất lớn hơn số thứ 2, ngược lại thì tính tích của 2 số đó.
vct tinh 1+1/2+1/3+...+1/N ... cho den khi 1/n <= 0.01
Viết chương trình tìm n để An >=100. Với A là một số nguyên được nhập từ bàn phím.
Câu 1t:Lập trình tính giá trị biểu thức sau:
|X^2 - 1| / ( z - 1/x)
Câu 2: Nhập vào hai số thực á, b lần lượt là chiều dài và chiều rộng hcn. Lập trình tính chu vi và diện tích
Câu 3: từ bàn phím lập trình tính diện tích hình tròn
Giúp mình với ạ. Mai mình ktra r hiuhiu. Thank you so much!
