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

Những câu hỏi liên quan
Nghiêm Duy Thành
Xem chi tiết
Na Ly
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 2 2023 lúc 20:50

uses crt;

var x,t,i:integer;

begin

clrscr;

t:=0;

repeat

readln(x);

t:=t+x;

until x=0;

write(t);

readln;

end.

Nguyễn Trọng Bằng
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 3 2021 lúc 18:41

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.

Giap Nguyen Van
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 3 2022 lúc 15:48

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.

日光
Xem chi tiết
Ng Ngọc
10 tháng 3 2022 lúc 9:46

???

Kaito Kid
10 tháng 3 2022 lúc 9:46

???

Keiko Hashitou
10 tháng 3 2022 lúc 9:46

ko đăng linh tinh

nuinuini
Xem chi tiết
Anh Tho
Xem chi tiết
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.

Trần Long
Xem chi tiết
Xyz OLM
7 tháng 2 2023 lúc 12:03

 

Anh Tho
Xem chi tiết
Park Soo Houng
16 tháng 1 2018 lúc 20:56

Ô 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.

Park Soo Houng
16 tháng 1 2018 lúc 20:56

Xorry..

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

dễ

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.