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.
uses crt;
var x,t,i:integer;
begin
clrscr;
t:=0;
repeat
readln(x);
t:=t+x;
until x=0;
write(t);
readln;
end.
Program HOC24;
var n,d,i: integer;
B: array[1..100] of integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
d:=0; t:=0;
for i:=1 to n do
if b[i]>0 then
begin
d:=d+1;
t:=t+b[i];
end;
writeln('Tong cac so duong trong day so la: ',t);
write('Co ',d,' so duong trong day');
readln
end.
uses crt;
var b:array[1..100] of longint;
n,i,d,s:longint;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(b[i]);
if b[i]>0 then begin
inc(d);
inc(s,b[i]);
end;
end;
writeln('Tong cac so duong: ',s);
writeln('Co ',d,' so duong');
readln;
end.
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.
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.
Ô 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.
uses crt;
var n,t1:integer;
s:real;
begin
clrscr;
t1:=0;
s:=1;
repeat
readln\(\left(n\right)\);
if n mod 2=0 then t1:=t1+n
else s:=s*n;
until n=0;
writeln\(\left(t1\right)\);
writeln\(\left(s:4:2\right)\);
readln;
end.
program Le_Nho_Hon_Hoac_Bang_n;
uses crt;
var
n, i: integer;
begin
clrscr;
write('Nhap vao mot so nguyen duong n: ');
readln(n);
while n <= 0 do
begin
writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');
readln(n);
end;
clrscr;
writeln('Cac so le nho hon hoac bang ', n, ' la:');
i := 1;
while i <= n do
begin
if i mod 2 <> 0 then
writeln(i);
i := i + 1;
end;
readln;
end.
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.
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.