Đọc vào một dãy số cho đến khi tổng của chúng lớn hơn 1997.
a.tính tbc các số đã đọc,đưa kết quả ra màn hình
cho tệp songuyen.inp chứa dãy các số nguyên ( mỗi số cách nhau một dấu cách). Đọc dữ liệu từ tệp đã cho và
a) Tính tổng các số lẻ trong tệp và đưa kết quả lên màn hình.
b) tính tổng các số lẻ trong tệp và ghi kết quả vào tệp songuyen2
c) đưa ra màn hình các số lẻ trong tệp
uses crt;
const fi='songuyen.inp'
fo='songuyen2.out'
var a:array[1..100]of integer;
i,n,t1:integer;
f1,f2:text;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do readln(f1,a[i]);
t1:=0;
for i:=1 to n do if a[i] mod 2<>0 then t1:=t1+a[i];
writeln(t1);
writeln(f2,t1);
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
close(f1);
close(f2);
readln;
end.
Mọi người giúp em bài này với ạ
Nhập một dãy số nguyên cho đến khi tổng của chúng lớn hơn 100.
Xuất ra màn hình các kết quả sau:
+ Dãy số vừa nhập sau khi đã sắp xếp theo chiều tăng dần (mỗi số cách nhau ít nhất một dấu cách)
+ Tổng các số là bội số của 3.
+ Số lớn nhất của dãy
+ Số lượng số là bội của 3
uses crt;
var a:array[1..1000]of integer;
i,n,j,tam,t,t1,tam,dem,max:integer;
begin
clrscr;
n:=0;
t:=0;
repeat
inc(n);
write('A[',n,']='); readln(a[n]);
t:=t+a[n];
until t>100;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day so theo chieu tang dan la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t1:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then
begin
t1:=t1+a[i];
inc(dem);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('Tong cac so la boi cua 3 la: ',t1);
writeln('So lon nhat cua day la: ',max);
writeln('So luong so la boi cua 3 la: ',dem);
readln;
end.
viết chương trình nhập từ bàn phím số nguyên dương n và dãy số nguyên a1 a2 đến an đưa dãy vừa nhập ra màn hình tính tổng các số chia hết cho 7 đưa kết quả ra màn hình
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 7=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 7 la: ',t);
readln;
end.
Viết chương trình nhập vào một dãy số, chương trình chỉ dừng lại khi số nhập vào là số 0. In ra màn hình các kết quả sau: - In ra tổng của các số chẵn đã nhập vào? - In ra tích của các số lẻ đã nhập vào?
Giúp tui với mn ơi
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.
Python:Trung bình cộng Cho dãy gồm N số nguyên được nhập vào từ bàn phím và một số nguyên k. Yêu cầu: Cho biết trong dãy số đã cho có tồn tại hay không một cặp số mà trung bình cộng của chúng bằng k Kết quả đưa ra màn hình câu trả lời có tồn tại hay không tồn tại cặp số thoả mãn điều kiện Vd: N =4; k= 5 và dãy 0 2 6 4 => có tồn tại ((6+4)/2 =5=k) N=3; k=3 và dãy 1 2 3 => không tồn tại
Viết chương trình đọc tệp a.txt chứa các số nguyên trên một dòng đưa kết quả tích các số ra màn hình
with open("a.txt", "r") as f:
numbers = list(map(int, f.readline().split()))
product = 1
for number in numbers:
product *= number
print("Tích các số trong file a.txt là:", product)
BT: Viết chương trình nhập vào một dãy N số nguyên dương (N<=150), nhập vào số nguyên dương K.
1. Tìm và đưa ra màn hình số lớn nhất (Max) của dãy vừa nhập, nếu dãy có nhiều số đạt Max thì tính tổng Max và đưa ra màn hình tất cả các vị trí đạt Max.
2. Tìm và đưa ra màn hình số nhỏ nhất (Min) của dãy vừa nhập, nếu dãy có nhiều số đạt Min thì tính tổng Min và đưa ra màn hình tất cả các vị trí đạt Min
3. Đếm và tính tổng các số ở vị trí chẵn là bội của số K trong dãy vừa nhập và đưa kết quả ra màn hình.
4. Đếm và tính tổng các số ở vị trí lẻ là ước của số K trong dãy vừa nhập và đưa kết quả ra màn hình.
5. Số a và số b là anh em của nhau nếu a = b + 1 hoặc b = a + 1. Đếm và tính tổng các số là anh em của K trong dãy vừa nhập và đưa kết quả ra màn hình.
uses crt;
var a,vtmax,vtmin:array[1..100]of integer;
n,i,max,min,dem,t,dem1,t1,dem2,t2,dem3,t3,dem4,t4,k: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];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('So lon nhat trong day la: ',max);
dem:=0;
t:=0;
for i:=1 to n do
if max=a[i] then
begin
inc(dem);
t:=t+a[i];
vtmax[dem]:=i;
end;
if dem>1 then
begin
writeln('Tong cac so max la: ',t);
writeln('Cac vi tri co so max la: ');
for i:=1 to dem do
write(vtmax[i]:4);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('So nho nhat trong day la: ',min);
dem1:=0;
t1:=0;
for i:=1 to n do
if min=a[i] then
begin
inc(dem1);
t1:=t1+a[i];
vtmin[dem1]:=i;
end;
if dem1>1 then
begin
writeln('Tong cac so min la: ',t1);
writeln('Cac vi tri co so min la: ');
for i:=1 to dem1 do
write(vtmin[i]:4);
end;
write('Nhap k='); readln(k);
dem2:=0;
t2:=0;
for i:=1 to n do
if (i mod 2=0) and (a[i] mod k=0) then
begin
dem2:=dem2+1;
t2:=t2+a[i];
end;
writeln('So phan tu o vi tri chan trong day la boi cua ',k,' la: ',dem2);
writeln('Tong cac so o vi tri chan trong day la boi cua ',k,' la: ',t2);
dem3:=0;
t3:=0;
for i:=1 to n do
if (i mod 2=1) and (k mod a[i]=0) then
begin
inc(dem3);
t3:=t3+a[i];
end;
writeln('So phan tu o vi tri le trong day la uoc cua ',k,' la: ',dem3);
writeln('Tong cac so o vi tri le trong day la uoc cua ',k,' la: ',t3);
dem4:=0;
t4:=0;
for i:=1 to n do
if (a[i]+k=1) or (a[i]=k+1) then
begin
inc(dem4);
t4:=t4+a[i];
end;
writeln('So phan tu la anh em cua ',k,' trong day la: ',dem4);
writeln('Tong cac phan tu la anh em cua ',k,' trong day la: ',t4);
readln;
end.
Viết chương nhập vào dãy gồm N số nguyên. Tính và đưa ra màn hình kết quả trung bình cộng của những số lẻ trong dãy. Kết quả làm tròn đến 2 chữ phần thập phân
Viết chương trình nhậo vào 1 dãy nguyên gồm N phần tử (N<=50). Tính tổng bình phương các phần tử là bội của 5 trong dãy số. Đưa kết quả ra màn hình.
Var s,i,n:longint;
Begin
Write('nhap so luong so N = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(so);
If so mod 5 = 0 then s:=s+so*so;
End;
Write('Tong binh phuong cac boi cua 5 trong day la ',s);
Readln;
End.
Var s,i,n,so:longint;
Begin
Write('nhap so luong so N = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(so);
If so mod 5 = 0 then s:=s+so*so;
End;
Write('Tong binh phuong cac boi cua 5 trong day la ',s);
Readln;
End.