Задача1. (на паскале давно не программировал, поэтому возможны огрехи, саого паскаля под рукой нет.)
Program zadanie1;
var
a,b,c: real;
begin
wtiteln('Vvedite A');
readln(a);
writeln('Vvrdite B');
readln(b);
writeln('Vvedite C');
readln(c);
if ((a>b)and(b>c))or((a<b)and(b<c)) then
begin
a:=a*2;
b:=b*2;
c:=c*2;
end;
else
begin
a:=a*(-1);
b:=b*(-1);
c:=c*(-1);
end;
writeln('a=');
writeln('b=');
writeln('c=');
end.
Решил исходя из того, что в случае если условие не выполняется значение чисел меняется на обратное по знаку.
Задача 2.
program Zadanie2;
var
A,B,C:integer;
begin
writeln('Введите числa A,B и C: ');
readln(A,B,C);
if (C = B) then
writeln('Номер числа, отличного от остальных: ',1)
else
if (A = C) then
writeln('Номер числа, отличного от остальных: ',2)
else
writeln('Номер числа, отличного от остальных: ',3);
end.
<span>
</span>
1. (D3 + D5) / E6 ( в E7); (B2 + B4)/C5 (в C6).
2. а) значение переместится на строку выше
б) значение переместится на строку ниже
в) переместится на столбец влево
г) переместится на столбец вправо
Основная формула в таблице имеет вид:
=($A5*B$4+$A5)+A$5*B$4
Полное решение - в прилагаемом файле.
360₈=3*8²+6*8=240₁₀
F2₁₆=15*16+2=242₁₀
11110001₂=241₁₀
10001111₂=143₂
10101111₂=175₁₀
11110011₂=243₁₀
Отсюда делаем вывод, что правильный ответ 1)
