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.
a)
-bạn Hoàng An:=SUM(c2;d2;e2)
-bạn Duy Hùng: =SUM(c3;d3;e3)
-bạn Lành: =Sum(c4;d4;e4)
-bạn Khánh: =Sum(c5;d5;e5)
-bạn Tình: =SUm(c6;d6;e6)
b)
-bạn Hoàng An:=Average(c2;d2;e2)
-bạn Duy Hùng: =Average(c3;d3;e3)
-bạn Lành: =Average(c4;d4;e4)
-bạn Khánh: =Average(c5;d5;e5)
-bạn Tình: =Average(c6;d6;e6)
Bài 2:
-Sum(a1,b1,30): 110
-sum(a1,a1,b1): 110
-Average(a1,b1,50): 43,(3)
-Max(a1,b1,25): 50
Program hotrotinhoc;
const fi='cau2.inp';
fo='cau2.out';
var f: text;
s: ansistring;
i,n,d,max,min: integer;
a: array[1..1000] of string;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,s);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
s:=s+' ';
while length(s)<>0 do
begin
inc(d);
min:=1001;
max:=0;
a[d]:=copy(s,1,pos(' ',s)-1);
delete(s,1, pos(' ',s));
end;
for i:=1 to d do
begin
if length(a[i])>max then max:=length(a[i]);
if length(a[i])<min then min:=length(a[i]);
end;
write(f,min,' ',max);
close(f);
end;
begin
ip;
out;
end.
Program hotrotinhoc_hoc24;
const fi='CAPSO.INP';
fo='CAPSO.OUT';
var a: array[1..100] of integer;
i,j,n,x,d: integer;
f: text;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]);
readln(f);
read(f,x);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
d:=0;
for i:=1 to n do
for j:=i to n do
if i+j=x then inc(d);
write(f,d);
close(f);
end;
begin
ip;
out;
end.
Đề này đảm bảo chế
đơn giản chỉ chỏ sai cho
1 1 1
1 1 1
1 1 1
trong đây tới 7 hình chử nhật lận ko tin thì liệt kê đi
Nếu ko sai thì thiếu dk