bai1; hãy tính diện tích xung quanh , diện tích toàn phần và thể tích của hình hộp chữ nhật với các kích thước lần lượt là ;chiều dài 6.5 m ;chiều rộng bằng 2/5 chiều dài và chiều cao kém chiều rộng 0.3 m?
1) Cau lenh de gan ten tep 'bai1.txt', cho bien tep f la:
A. assign(bai1.txt,f); B. assign(f,bai1.txt);
C. assign('bai1.txt',f); D. assign(f,'bai1.txt');
Viết chương trình đọc từ tệp BAI1.INP số nguyên dương N . Tính tổng các số lẻ từ 1 đến N. Ghi kết quả vào tệp BAI1.OUT .
BA1.INP. BAI1.OUT
6. 9
Program HOC24;
var i,n: integer;
t: longint;
f1,f2: text;
begin
assign(f1,'BAI1.INP');
reset(f1);
read(f1,n);
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
close(f1);
assign(f2,'BAI1.OUT');
rewrite(f2);
write(f2,t);
close(f2);
end.
Viết chương trình thực hiện các yêu cầu sau:
1.Đọc một số tự nhiên n<2 tỉ từ file bai1.int sau đó tính tổng các chữ số của số vừa đọc và ghi vào file bai1.out
2.Nếu kết quả ở câu 1 là số:
Lẻ: ghi vào file bai1.out "khong thuc hien"
Chẵn: phân tích số đó thành tổng hai số nguyên tố và ghi kết quả vào file bai1.out
Cho tệp bai1.inp gồm:
Hàng 1:Chứa số nguyên N
Hàng 2:Chứa dãy số nguyên gồm N chữ số
Yêu cầu:-Tính tổng các số lẻ và đếm các số chẵn của dãy số trên
-Ghi kết quả tổng và đếm vào tệp bai1.out
const fi='bai1.inp'
fo='bai1.out'
var f1,f2:text;
a:array[1..100]of integer;
n,i,t,dem: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]);
t:=0;
dem:=0;
for i:=1 to n do
begin
if a[i] mod 2<>0 then t:=t+a[i]
else inc(dem);
end;
writeln(f2,'Tong cac so le la: ',t);
writeln(f2,'So so chan la: ',dem);
close(f1);
close(f2);
end.
Viết chương trình Pascal tính am . Với a,m là các số nguyên đọc từ bai1.inp và ghi kết quả ra tệp bai1.out.
giúp mình vs
const fi='bai1.inp';
fo='bai1.out';
var f1,f2:text;
a,m,lt,i:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,m);
lt:=1;
for i:=1 to m do
lt:=lt*a;
writeln(f2,lt);
close(f1);
close(f2);
end.
bai1
h={xen/xmu17=x}
pham minh hoa Bài 1 cho đề như thế nào ? Thiếu dữ liệu đề bài rồi :vv
pham minh hoa Viết các tập hợp sau bằng cách nào??? cách liệt kê hay cách gì???
BAI1 SO SANH 2^600 va 3^400
Nguyễn Văn Tân làm đúng nhưng cách làm như bạn thì sai ùi !
2^600 = ( 2^6 )^100 = 64^100
3^400 = ( 3^4)^100 = 81^100
Vì 64 < 81 nên 64^100 < 81^100
Nên : 2^600 < 3^400
2600 = (26)100 =32100
3400 =(34)100 =81100
Mà 32<81
=> 2600<3400
bai1:phan tich da thuc thanh nhan tu a)5x3y-10x2y2+5xy3 b)x32y-1-125 2y-1 c)x2-6x-4y2+9 d)x2-xy+2y-2x
bai1 : tinh 7/9-1/12 lam kieu gi
giup minh voi
\(\dfrac{7}{9}-\dfrac{1}{12}=\dfrac{28}{36}-\dfrac{3}{36}=\dfrac{25}{36}\)
Câu lệnh để gắn tên tệp ‘bai1.txt’, cho biến tệp f là:
A. assign( f, ‘bai1.txt’);
B. assign(bai1.txt, f);
C. assign( f, bai1.txt);
D. assign(‘bai1.txt’, f);