4:
var a: array [1..3] of integer;
i,min,max : integer;
begin
for i:= 1 to 3 do
begin
write('a[',i,'] = ');
read(a[i]);
writeln;
end;
min:= a[1];
max:= a[1];
for i:= 1 to 3 do
begin
if a[i] < min then
begin
min:= a[i];
end;
end;
for i:= 1 to 3 do
begin
if a[i] > max then
begin
max:= a[i];
end;
end;
writeln('min = ',min);
writeln('max = ',max);
end.
5:
var a: array [1..5] of integer;
i,max : integer;
begin
for i:= 1 to 5 do
begin
write('a[',i,'] = ');
read(a[i]);
writeln;
end;
max:= a[1];
for i:= 1 to 3 do
begin
if a[i] > max then
begin
max:= a[i];
end;
end;
writeln('max = ',max);
end.
131 =128+2+1=2^7 + 2^1 +2^0= 10000011
,79 * умножаем только дробную часть числа, искомая двоичная
<u> 2</u> дробь записывается из целых сверху-вниз 0,79≈0,11011
1,58*
<u> 2</u>
<u /> 1,40
<u> 2 </u> 131,79=10000011,11011<u>
</u> 0,8
<u> 2
</u> 1,6
<u> 2</u>
1,2
1111101(2)=2^6+2^5+2^4+2^3+2^2+2^0=125(10)
AF(16)=175(10)
A=10 F=15
AF(16)=16^1*10+16^0*15=175(10)
36(8)=3*8^1+6*8^0=30(10)
1101(2)=2^3+2^2+2^0=13(10)
125+175+30+13=343
1.
var a,b:integer;
begin
readln(a);
readln(b);
if ((a>0) and (b>0)) Or ((a<0) and (b<0))
writeln('У обоих чисел одинаковые знаки')
else
writeln('У чисел разные знаки') ;
<span>end.
2.
var a,b:integer;
begin
readln(a);
readln(b);
if (a mod 2=0) And (b mod 2=0) then
writeln('Высказывание истинно')
else
writeln('Высказывание ложно')
<span>end.</span></span>
<span>управлять компьютером можно, выбирая нужную команду из заранее заготовленных вариантов - это </span>Командная сторка