K
Khách

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.

27 tháng 2 2018

Var i , n : Integer;

A : real;

Begin

write ( ' n = ' ) ; read (n);

A:= 0;

For i := 1 to n do A:= A + 1/i;

Writeln (A);

Readln;

End.

28 tháng 2 2018

https://cnttqn.com/threads/pascal-viet-chuong-trinh-tinh-diem-trung-binh-va-xep-hang.2223.html tham khảo

27 tháng 2 2018

Var n , a , i : integer;

Begin

write (' n = ') ; read (n);

write (' a = ') ; read (a);

For i:=1 to n do

If i > a then write (i ' ');

Readln;

End.

27 tháng 2 2018

xin link kb cậu với ạ :>>

27 tháng 2 2018

Var i , n : Integer;

S : real;

Begin

write (' n = ') ; read (n);

S:=0

For i:=1 to n do S:= S + 1/i;

Writeln ( S );

Readln;

End.

3 tháng 4 2018

program bai1;

var i,n,s:longint;

begin

write('N= ');

readln(n);

s:=1;

for i:=2 to n do s:=s+1/i;

write('s= ',s);

readln

end.