Viết công thức để người dùng nhập các số khác 0 rồi tính và in ra màn hình nghịch đảo số này công thức kết thúc khi người dùng nhấp số 0 lần đầu, nghịch đảo số n là 1 trên n
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
7 tháng 3 2021
uses crt;
var a:real;
begin
clrscr;
write('Nhap a='); readln(a);
if a=0 then writeln('Khong tim duoc so nghich dao')
else writeln('So nghich dao la: ',1/a:4:2);
readln;
end.
7 tháng 3 2018
program bai1;
var a:array[1..100] of longint;
s:real,i,n:longint;
begin
repeat
write('N= ');
readln(n);
until n>0;
for i:=1to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
s:=0;
for i:=1o n do
s:=s+1/i;
write('S= ',s);
readln
end.
11 tháng 3 2022
uses crt;
var n,i,t1,t2:integer;
begin
clrscr;
t1:=0;
t2:=0;
repeat
readln(n);
if n mod 2=0 then t1:=t1+n
else t2:=t2+n;
until n=0;
writeln(t1,' ',t2);
readln;
end.
16 tháng 1 2018
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.
17 tháng 1 2018
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.
16 tháng 1 2018
Ô nhiễm nước là hiện tượng các sông , hồ, nước ngầm bị ô nhiễm . Ô nhiễm nguồn nước có thể do hai nguyên nhân đó là: ô nhiễm tự nhiên và ô nhiễm nhân tạo. Ô nhiễm tự nhiên thường do thiên tai, động đất hoặc núi lửa. Ô nhiễm nhân tạo là do con người đã tác động đến như các rác thải từ con người đổ vào, các nhà máy xí nghiệp. Nếu đến một lúc nào đó thì nước sạch sẽ không có đủ nước cung cấp cho con người, động vật và thực vật sẽ phải thiếu nước do đó chúng sẽ kiệt sức và chết. Còn các động vật dưới nước sẽ chết do không có nước sạch để sống. Dẫn đến những điều xấu cho con người , động vật và thực vật.
Do đó chúng ta cần phải giữ vệ sinh nơi ở và môi trường, các nhà máy không nên xả nước bẩn xuống hồ, sông và phải tiết kiệm nước đúng cách.
TT
0