Question

Câu 1: Viết phương trình tổng

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

A= 1+2+.....+t

(n, t đc nhập từ bàn phím)

( mink đag cần gấp)

Answer 1

Program bt;

Var n,i: Integer;

T: longint;

Begin

Writeln('Nhap a');

Readln(a);

For i:=2 to n do T=T+1/i;

Writeln(' T=',T);

Readln;

End.

Answer 2

uses crt;

var a,t1,i:integer;

t:real;

begin

clrscr;

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

t:=0;

for i:=2 to n do

t:=t+1/i;

writeln('T=',t:4:2);

write('Nhap so t='); readln(t1);

a:=0;

for i:=1 to t1 do

a:=a+i;

writeln(a);

readln;

end.