Var a,b,c:integer;
function min(x1,x2:integer):integer;
begin
if x1<x2 then min:=x1 else min:=x2;
end;
function max(x1,x2:integer):integer;
begin
if x1<x2 then max:=x2 else max:=x1;
end;
begin
readln(a,b,c);
writeln( max( max(a,b) ,c ) - min ( min(a,b), c) );
<span>end.</span>
Ответ:
№1
- 1001010 в 2
- 171 в 8
- 101 в 16
№2
- 5 единиц
№3
- 1 ноль
№4
- 144 в 8
Подробное решение на фотографиях
Ответ:
Begin
For i:=1 to 10 do
Read(a[i]);
For i:=1 to 10 do
Read(b[i]);
For i:=1 to 10 do
Read(c[i]);
For i:=1 to 10 do
d[i]:=(a[i]+b[i]+c[i])/3;
End.
Извини, но на "желательно" не было времени, это было бы слишком долго.
Думаю, что верные ответы под B, F, G
А) Топ, Мим, Смех, Бон
б)3
в)Топ, Мим
г) таких нету