Viết chương trình nhập vào 1 số nguyên dương n từ bàn phím và tính tổng các số lẻ nhỏ hơn hoặc bằng n. Rồi xuất kết quả ra màn hình
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.
19 tháng 6 2020
uses crt;
var a:array[1..5]of real;
i:byte;
t:real;
begin
clrscr;
for i:=1 to 5 do
begin
write('Nhap diem Tin cua ban thu ',i,'='); readln(a[i]);
end;
for i:=1 to 5 do
writeln('Diem cua ban thu ',i,'=',a[i]:4:2);
t:=0;
for i:=1 to 5 do
t:=t+a[i];
writeln('Diem trung binh la: ',t/5:4:2);
readln;
end.
19 tháng 6 2020
Bài 1:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if i mod 2=0 then write(i:4);
readln;
end.
Bài 2:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if i mod 2=1 then write(i:4);
readln;
end.
22 tháng 6 2020
uses crt;
var a:array[1..100]of integer;
n,i,x,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap x='); readln(x);
dem:=0;
for i:=1 to n do
if a[i]<=x then inc(dem);
writeln('So phan tu khong lon hon ',x,' la: ',dem);
readln;
end.
19 tháng 6 2020
uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('Trung binh cong cac so chan trong day so la: ',t/dem:4:2);
readln;
end.
23 tháng 6 2020
uses crt;
var a:array[1..100]of integer;
n,i,tc,tl:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tc:=0;
tl:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then tc:=tc+a[i]
else tl:=tl+a[i];
end;
writeln('Tong cac so chan la: ',tc);
writeln('Tong cac so le la: ',tl);
readln;
end.
26 tháng 11 2020
Câu 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('Ket qua la: ',s:4:2);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Tong cua phan tu lon nhat va phan tu nho nhat la: ',max+min);
readln;
end.
19 tháng 6 2020
Câu 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('Ket qua la: ',s:4:2);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Tong cua phan tu lon nhat va phan tu nho nhat la: ',max+min);
readln;
end.
DN
2
18 tháng 6 2020
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
write(t);
readln;
end.
18 tháng 6 2020
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
readln;
end.
18 tháng 6 2020
uses crt;
var a:array[1..20]of integer;
i,max:integer;
begin
clrscr;
for i:=1 to 20 do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=2 to 20 do
if max<a[i] then max:=a[i];
write(max);
readln;
end.
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+i;
write(t);
readln;
end.