Question

1,viết chương trình in ra màn hình 10 chữ O ra màn hình, mỗi chữ O trên 1 dòng và dừng trong khoảng thời gian là 2 giây

2,viết chương trình tích P sau đây(với n là số tự nhiên được nhập vào bàn phím) P= 1*1/2*1/3*...*1/n

Answer 1

Bài 1:

uses crt;

var i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

writeln('O');

delay(2000);

end;

readln;

end.

Bài 2:

uses crt;

var n,i:integer;

p:real;

begin

clrscr;

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

p:=1;

for i:=1 to n do

p:=p*1/i;

writeln('Tich cua day so tu 1/1 toi 1/',n,'=',p:4:2);

readln;

end.