Phần mềm học tập

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Huong Dinh

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

Nguyễn Lê Phước Thịnh
23 tháng 6 2020 lúc 16:01

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.


Các câu hỏi tương tự
Phạm Tèo
Xem chi tiết
Nguyen Tan Dat
Xem chi tiết
Finn
Xem chi tiết
Linh Da
Xem chi tiết
Đặng Minh Hiếu
Xem chi tiết
Phan Tấn Tài
Xem chi tiết
Nguyễn Kim Trí
Xem chi tiết
Thái Nguyên Khuê
Xem chi tiết
Chi Na channel
Xem chi tiết