Bài 8. Lặp với số lần chưa biết trước

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trúc Thảo

Viết chương trình để người dùng nhập các số khác 0 rồi tính và in ra màn hình tổng các số nghịch đảo của các số này.Chương trình kết thúc khi người sử dụng nhập số 0 lần đầu tiên (nghịch đảo của số n là số 1/n)

Minh Lệ
20 tháng 4 2020 lúc 9:00

Program hotrotinhoc;

var i,n: ineger;

s: real;

begin

s:=0;

write('Nhap so nguyen :'); readln(n);

if n<>0 then s:=s+1/n;

while n<>0 do

begin

write('Nhap so nguyen :'); readln(n);

if n<>0 then s:=s+1/n;

end;

write(Tong cac so nghich dao la : ',s);

readln

end.


Các câu hỏi tương tự
Giap Nguyen Van
Xem chi tiết
Lê Nguyễn Thanh Quân
Xem chi tiết
Trần Thị Mai Ngọc
Xem chi tiết
huỳnh duy cát
Xem chi tiết
Lê Tâm Anh
Xem chi tiết
Mỹ Trinh
Xem chi tiết
An Vy
Xem chi tiết
Nguyễn Thị Ngọc Oanh
Xem chi tiết
Linh lung
Xem chi tiết