Bài 9. Làm việc với dãy số

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

Em hãy Viết chương trình để người sử 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 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 đầu tiên

Ngô Hoàng Gia Bảo
16 tháng 1 2018 lúc 21:01

uses crt;

var s,i,a:longint;

begin

clrscr;

s:=0;i:=2;

write('nhap so thu 1:');readln(a);

while a<>0 do

begin

s:=s+1/a;

writeln('nhap so thu',i);readln(a);

i:=i+1;

end;

writeln('tong nghich dao la:',s:2:3);

readln;

end.

Trương Quang Dũng
17 tháng 1 2018 lúc 21:19

program bai1;

var a:array[1..100] of longint;

s,i,n:longint;

begin

repeat

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

until n>0;

for i:=1 to n do

begin

write('A[',i,']= ');readln(a[i]);

if a[1] =0 then exit;

end;

s:=0;

for i:=1 to n do

begin

if a[i]>0 then s:=s+1/a[i];

end;

writeln('Tong la ',s);

readln

end.


Các câu hỏi tương tự
Anh Tho
Xem chi tiết
Anh Tho
Xem chi tiết
Thư ĐT
Xem chi tiết
jennierubyjane
Xem chi tiết
Huyền Trần
Xem chi tiết
Uchiha Obito
Xem chi tiết
Mẫn Kim Anh
Xem chi tiết
Tali
Xem chi tiết
Hùng Bùi
Xem chi tiết