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>
Ответ:
A1. 1)3
A2. 3)25F
A3. 2) 7
A4. 3) 77
B1. ADCB
B2. легковой
Объяснение:
А2.
75₁₀ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ + 0*2⁴ + 0*2⁵ + 1*2⁶ = 1001011₂
A3.
607₁₀ = 15*16⁰ + 5*16¹ + 2*16² = 25F₁₆
A4.
1₁₀ = 1*5⁰ = 1₅
2₁₀ = 2*5⁰ = 2₅
3₁₀ = 3*5⁰ = 3₅
4₁₀ = 4*5⁰ = 4₅
5₁₀ = 0*5⁰ + 1*5¹ = 10₅
6₁₀ = 1*5⁰ + 1*5¹ = 11₅
7₁₀ = 2*5⁰ + 1*5¹ = 12₅
8₁₀ = 3*5⁰ + 1*5¹ = 13₅
9₁₀ = 4*5⁰ + 1*5¹ = 14₅
10₁₀ = 0*5⁰ + 2*5¹ = 20₅
A5.
1030₄ = 0*4⁰ + 3*4¹ + 0*4² + 1*4³ = 76₁₀
4E₁₆ = E*16⁰ + 4*16¹ = 78₁₀
B1.
A=110111₂ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1*2⁵ = 55₁₀
B=111₅ = 1*5⁰ + 1*5¹ + 1*5² = 31₁₀
C=53₈ = 3*8⁰ + 5*8¹ = 43₁₀
D=2E₁₆ = E*16⁰ + 2*16¹ = 46₁₀
B2.
111000,1₂ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ + 1*2⁴ + 1*2⁵ + 1/2¹ = 56,5₁₀
Var
fullstr,s,s_int,s_rl,s_str: string;
int: integer;
rl: real;
space,err: integer;
begin
writeln('String:');
readln(fullstr);
while fullstr[1] = ' ' do
delete(fullstr,1,1);
while fullstr[length(fullstr)] = ' ' do
delete(fullstr,length(fullstr),1);
while pos(' ',fullstr) <> 0 do
delete(fullstr,pos(' ',fullstr),1);
s_int := '';
s_rl := '';
s_str := '';
while fullstr <> '' do begin
space := pos(' ',fullstr);
if space = 0 then
space := length(fullstr) + 1;
s := copy(fullstr,1,space-1);
val(s,int,err);
if err = 0 then
s_int := s_int + s + ' '
else begin
val(s,rl,err);
if err = 0 then
s_rl := s_rl + s + ' '
else
s_str := s_str + s + ' ';
end;
delete(fullstr,1,space);
end;
writeln('Integers: ',s_int);
writeln('Real: ',s_rl);
writeln('Words: ',s_str);
readln
end.
5) компьютер может сам создавать алгоритмы - НЕТ
6) Система команд .......... - НЕТ
Сад (растения, садовник)
Река (вода, берег)
Игра (игроки, правила)