В 3-ем может быть ошибка. У меня 2-ой месяц нет матана, так что извиняй если что =) А так сама программа составлена правильно
var
a, b, c, o1, o2, o3: real;
begin
writeln('Введите a,b и c через пробел');
readln(a, b, c);
o1 := sqrt(2 * a - 3) / b - 1 + sqrt(sqr(c) + a * c + sqr(a));
o2 := sqrt(2 + sqrt(2 + sqrt(b + sqrt(abs(c - a)))));
o3 := 1 / 1 + 1 / a + 1 - b / 1 - c;
writeln('a) ', o1);
writeln('b) ', o2);
writeln('c) ', o3);
end.
Для начала приведем все в 10 сис-му счисления
1) 1100(2) = 12(10)
2) 65(8) = 53(10)
Получаем 12 + 53 + х = 110
откуда х = 110 - 12 - 53 = 45
Переведем полученное значение в восьмеричную систему
45(10) = 55(8)
Ответ: 55
Задание 6:
Ответ - 3( Сместиться на 16; -17)
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var s:=ReadlnInteger('Число:').ToString;
if Pos(ReadlnString('Цифра:'),s)>0 then Writeln('Есть в числе')
else Writeln('Нет в числе')
end.
<u><em>Тестовое решение:</em></u>
Число: 634
Цифра: 3
Есть в числе