cho tập văn bản có tên Ktra.TXT lưu trữ các số nguyên ngẫu nhiên. Tính và in kết quả ra tệp cóbteen là KQKT.TXT các số chia hết cho 2. và 3
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
10 tháng 5 2023
with open('XAU.INP', 'r') as input_file, open('XAU.OUT', 'w') as output_file:
for line in input_file:
length = len(line.strip())
output_file.write(f'{length}\n')
7 tháng 4 2019
Var f1, f2: text;
Tong, m, n, i: integer;
Begin
assign(f1, ‘DULIEU.TXT’);
reset(f1);
assign(f2, ‘KETQUA’);
rewrite(f2);
Tong;= 0;
read(f1, m, n);
for i:= m to n do
if i mod 2 = 0 then Tong:= Tong+i;
write(f2, Tong);
close(f1);
close(f2);
End.
21 tháng 2 2022
const fi='dl.dat';
fo='kq.dat';
var f1,f2:text;
a:array[1..100]of integer;
i,n,dem1,dem2,t1,t2:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem1)
else inc(dem2);
end;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if (a[i] mod 6=0) then t1:=t1+a[i];
if (a[i] mod 9=0) and (a[i] mod 2<>0) then t2:=t2+a[i];
end;
writeln(f2,dem1,' ',dem2);
writeln(f2,t1);
writeln(f2,t2);
close(f1);
close(f2);
end.
21 tháng 2 2022
const fi='dl.dat';
fo='kq.dat';
var f1,f2:text;
a:array[1..100]of integer;
i,n,dem1,dem2,t1,t2:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem1)
else inc(dem2);
end;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if (a[i] mod 6=0) then t1:=t1+a[i];
if (a[i] mod 9=0) and (a[i] mod 2<>0) then t2:=t2+a[i]
end
writeln(f2,dem1,' ',dem2)
writeln(f2,t1)
writeln(f2,t2)
close(f1)
close(f2)
;-;
9 tháng 3 2023
uses crt;
const fi='canh_ht.int';
var f1:text;
a,b,h,c,d:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b,c,d,h);
writeln(a+b+c+d);
writeln(1/2*h*(a+b):4:2);
close(f1);
readln;
end.
CM
9 tháng 1 2018
Chọn A
Ta có tất cả các số tự nhiên có 7 chữ số bắt đầu từ 1000000 đến 9999999 gồm 9000000 số.
Do đó 
Mặt khác, ta thấy cứ 70 số tự nhiên liên tiếp thì có 10 số chia hết cho 7, trong đó có 1 số có chữ số hàng đơn vị là chữ số 3.
Mà 
nên ta chia 9000000 số thành 128571 bộ 70 số liên tiếp và còn lại 30 số cuối, trong đó:
128571 bộ 70 số tự nhiên liên tiếp có 128571 số thỏa mãn yêu cầu
30 số cuối có 3 số tận cùng bằng 3 được xét trong bảng sau
| 9999973 |
9999983 |
9999993 |
| Chia cho 7 dư 4 |
Chia hết cho 7 |
Chia cho 7 dư 4 |
Vậy tất cả có 128572 số chia hết cho 7 và chữ số hàng đơn vị là chữ số 3.
Gọi A là biến cố ‘Chọn được một số chia hết cho 7 và chữ số hàng đơn vị là chữ số 3’ thì n(A) = 128572
Suy ra 
CM
8 tháng 11 2019
Chọn A
Ta có tất cả các số tự nhiên có 7 chữ số bắt đầu từ 1000000 đến 9999999 gồm 9000000 số.
Do đó 
Mặt khác, ta thấy cứ 70 số tự nhiên liên tiếp thì có 10 số chia hết cho 7, trong đó có 1 số có chữ số hàng đơn vị là chữ số 3.
Mà 90000 = 70x128571 + 30, nên ta chia 9000000 số thành 128571 bộ 70 số liên tiếp và còn lại 30 số cuối, trong đó:
128571 bộ 70 số tự nhiên liên tiếp có 128571 số thỏa mãn yêu cầu
30 số cuối có 3 số tận cùng bằng 3 được xét trong bảng sau
| 9999973 |
9999983 |
9999993 |
| Chia cho 7 dư 4 |
Chia hết cho 7 |
Chia cho 7 dư 4 |
Vậy tất cả có 128572 số chia hết cho 7 và chữ số hàng đơn vị là chữ số 3.
Gọi là biến cố ‘Chọn được một số chia hết cho 7 và chữ số hàng đơn vị là chữ số 3’ thì n(A) = 128572
Suy ra 
CM
12 tháng 12 2017
Chọn A
Ta có tất cả các số tự nhiên có 7 chữ số bắt đầu từ 1000000 đến 9999999 gồm 9000000 số.
Do đó 
Mặt khác, ta thấy cứ 70 số tự nhiên liên tiếp thì có 10 số chia hết cho 7, trong đó có 1 số có chữ số hàng đơn vị là chữ số 3.
Mà 
nên ta chia 9000000 số thành 128571 bộ 70 số liên tiếp và còn lại 30 số cuối, trong đó:
128571 bộ 70 số tự nhiên liên tiếp có 128571 số thỏa mãn yêu cầu
30 số cuối có 3 số tận cùng bằng 3 được xét trong bảng sau
| 9999973 |
9999983 |
9999993 |
| Chia cho 7 dư 4 |
Chia hết cho 7 |
Chia cho 7 dư 4 |
Vậy tất cả có 128572 số chia hết cho 7 và chữ số hàng đơn vị là chữ số 3.
Gọi A là biến cố ‘Chọn được một số chia hết cho 7 và chữ số hàng đơn vị là chữ số 3’ thì n(A) = 128572
Suy ra 
const fi='ktra.txt';
fo='kqkt.txt';
var f1,f2:text;
a:array[1..100]of integer;
n,i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
while not eoln(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
for i:=1 to n do
if a[i] mod 6=0 then write(f2,a[i]:4);
close(f1);
close(f2);
end.