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 f1,f2:text;
i,n,tong,tongchan,dem:integer;
tb:real;
Begin
clrscr;
Assign(f1,'DAYSO.txt');
Assign(f2,'KETQUA.txt');
reset(f1);dem:=0;tong:=0;tongchan:=0;
While Not EOF(f1) do
Begin
read(f1,i);
inc(tong,i);
If i mod 2 = 0 then
begin
inc(dem);
inc(tongchan,i);
end;
End;
tb:=tongchan/dem;
close(f1);
rewrite(f2);
writeln(f2,tong);
writeln(f2,tongchan);
writeln(f2,tb:0:2);
close(f2);
write(tong);
readln;
End.
uses crt;
const fi='so.inp';
var f1:text;
a,b:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
while not eof(f1) do
begin
readln(f1,a,b);
writeln((a+b)/2:4:2);
end;
close(f1);
readln;
end.
uses crt;
var a:array[1..20]of integer;
i,n,tb,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tb:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then
begin
tb:=tb+a[i];
inc(dem);
end;
writeln('Trung binh cong cac so chia het cho 3 la: ',tb/dem:4:2);
readln;
end.
b: #include <bits/stdc++.h>
using namespace std;
long long b[1000],i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>b[i];
sort(b+1,b+n+1);
for (i=1; i<=n; i++)
cout<<b[i]<<" ";
return 0;
}
const fi='data.txt';
fo='tbc.txt';
var f1,f2:text;
a:array[1..100]of integer;
n,i,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(f2,t/n:4:2);
close(f1);
close(f2);
end.
cho tệp DataIn.txt chứa liên tiếp các số nguyên dương hoặc âm, các số trên cùng một dòng ngăn cách nhau bởi dấu cách. viết chương trình đọc các số vào chương trình pascal và tính tổng rồi ghi ra DataOut.txt
xin giúp đỡ ạ
#include <bits/stdc++.h>
using namespace std;
double a,b,c,tbc;
int main()
{
cin>>a>>b>>c;
tbc=(a+b+c)/3;
cout<<"Tong la:"<<fixed<<setprecision(2)<<a+b+c<<endl;
cout<<"TBC la:"<<fixed<<setprecision(2)<<tbc;
return 0;
}
z và t là kết quả của các phép lôgic sau:
z = AND(x, y)
t = XOR(XOR(x, y), z)