Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);
readln;
end.
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);
readln;
end.
1. program b1 ;
var i,n :integer ;
begin
tong:=0;
for i:= 1 to 200 do n:=n+i;
write('Tong 200 so nguyen dau tien la :',n);
readln
end.
2. program b2 ;
var i,t: integer;
begin
t:=1;
for i:= 1 to n do t:=t*i;
write('Tich 30 so nguyen dau tien la : ',t);
readln
end.
3. program b3;
var n,i : integer ;
begin
write('n='); readln(n);
n:=1;
for i:= 1 to n do n:=n*i; write('n!=',n);
readln
end.
4. program b4;
var i,n,x:integer;
lt:longint;
begin
write('nhap x='); readln(x);
write('nhap n='); readln(n);
lt:=1;
for i:=1 to n do lt:=lt*x;
write(x,'^',n,'=',lt);
readln
end.
var i,n:integer;
s:real;
begin
s:=1;
write('ban hay nhap vao mot so nguyen: '); readln(n);
for i:= 1 to n do
s:= s + (1/(i*(i+1));
writeln(' tong s = ',s:0:2);
readln
end.
var i,n:integer;
s:real;
begin
s:=1;
write('ban hay nhap vao mot so nguyen: '); readln(n);
for i:= 1 to n do
s:= s + (1/(i*(i+1));
writeln(' tong s = ',s:0:2);
readln
end.
Bạn tự khai báo nhé!;
Ảnh nhỏ thì nhấn mở hình ảnh trong tab mới nha
4...
begin
repeat
write('N= '):
readln(n);
until n>0;
s:=0;
for i:=1 to n do
s:=s+1/n;
write('s= ',s);
readln
end.
program bai1;
var i,n:longint;s:real;
begin
write('N= ');
readln(n);
s:=1;
for i:=2 to n do s:=s+1/i;
write('s= ',s);
readln
end.
1.
a) (1/(b+a))*(a*a+c)=5
b) k*k+(k+1)*(k+1)<>(k+2)*(k+2)
c) 8*x-7>1
d) b*2-4*a*c>=0
2.
Bước 1. Nhập 2 số a và b bất kì.
Bước 2. SUM ß a+b.
Bước 3. Thông báo giá trị của SUM và kết thúc thuật toán.
3.
Bước 1. Nhập N
Bước 2. SUM ß 0; i ß 0.
Bước 3. SUM ß SUM + i.
Bước 4. i ß i + 1.
Bước 5. Nếu i N, thì quay lại bước 3
Bước 6. Thông báo giá trị của SUM và kết thúc thuật toán.
4.
program tinh_dien_tich_tam_giac;
uses crt;
var a,h : interger;
S : real;
begin
clrscr;
write(‘Nhap do dai canh day la: ’);
readln (a);
write(‘Nhap do dai chieu cao la: ’);
readln(h);
S:=(a*h)/2;
writeln(‘Dien tich hinh tam giac la: ’,S:4:1);
readln;
end.
Còn lại tự giải nha 
Chương trình tính tổng:
n = int(input("Nhập n: "))
S = 0
for i in range(1, n+1):
S = S + i
print("Tổng S là:", S)
Chương trình tính tích:
n = int(input("Nhập n: "))
T = 1
for i in range(1, n+1):
T = T * i
print("Tích T là:", T)