ai hỏi

Cộng cho 1/n(n+n) chứ bạn

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

write('nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do

begin

s:=s+1/(i*(i+i));

i:=i+1;

end;

writeln(s:4:2);

readln;

end.

câu 1:

var x:string

     y:integer

Câu 2:

var a,b:integer

begin

write('hay nhap gia tri cua a')

read(a)

wrietln('hãy nhập giá trị b')

read(b)

t:=a+b

writeln('tông cua a va b la',t)

? đây là toán mà

Nguyễn Minh Lệ em xin lỗi ạ, em sửa là : longint;

b)

program hotrotinhoc;

var s: real;

i,n: byte;

function t(x: byte): longint;

var j: byte;

t1: longint;

begin

t1:=1;

for j:=1 to x do

t1:=t1*j;

t1:=t;

end;

begin

readln(n);

s:=0;

for i:=1 to n do

s:=s+1/t(i);

write(s:1:2);

readln

end.

c) Đề em ghi sai rồi thế này với đúng :

\(T=1+\frac{2}{2^2}+\frac{3}{3^2}+\frac{4}{4^2}+...+\frac{n}{n^2}\)

program hotrotinhoc;

var t: real;

n,i: byte;

begin

readln(n);

t:=0;

for i:=1 to n do

t:=t+i/(i*i);

write(t:1:2);

readln

end.

**********************************************************

PROGRAM BT_Giai_thua;

USES crt;

VAR i,n:integer; s1:string;

Function Giaithua(x:integer):longint;

Var s,i:longint;

Begin

s:=1;

for i:=1 to x do s:=s*i;

Giaithua:=s;

End;

Function Tong(x:integer):real;

Var j:integer; s:real;

Begin

s:=0;

for j:=1 to x do s:=s+1/Giaithua(j);

Tong:=s;

End;

BEGIN

clrscr;

write('Nhap n:'); readln(n);

writeln(n,'!=', Giaithua(n));

writeln('Tong 1/1!+1/2!+...+1/',n,'! la:',Tong(n):0:2);

str(Giaithua(n),s1);

write('Sau khi xoa duoc:');

i:=length(s1)+1;

repeat

if s1[i-1]='0' then delete(s1,i-1,1)

else break;

i:=i-1;

until i=1 ;

write(s1);

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;

Uses crt;

var W,H2,BMI: real;

BEGIN

clrscr;

Write('nhap can nang (W):'); Readln(W);

Write('nhap chieu cao(H2):') Readln(H2);

BMI:= W/H2

Writeln('chi so co the duoc tinh theo can nang va chieu cao la:',BMI);

END.

thanks

thanks

4a

5d

7 không đáp án nào đúng đâu bạn

8c

9a

12a

13a

14d

15c

16c

17b

19c

chúc bạn thi tốt