Question

Câu 1: Hãy điền vào chỗ trống để được một chương trình đúng: 

Program tinh_tich;

Var i: integer;

s: ………….;

Begin

s:= ……..;

for i:= 1 to 10 … s:= s*1/i;

writeln ('tich ',……...);

readln;

End. 

 

 

Answer 1

uses crt;

var i:integer; s:real;

begin

clrscr;

s:=1;

for i:=1 to 10 do s:=s*1/i;

writeln(s:4:2);

readln;

end.