Question

Viết chương trình nhập vào A. Tính biểu thức S = 1/1 + 1/2 + 1/3 + 1/4 +…+1/A. Chỉ lấy số nguyên đầu, không lấy phần thập phân 

  Ví dụ

A = 5

S = 2

Answer 1

uses crt;

var a,i:integer;

s:real;

begin

clrscr;

readln(a);

s:=0;

for i:=1 to a do s:=s+1/a;

writeln(s:0:0);

readln;

end.