Ничего не вижу , кроме 17
17.ЕГАДВЖБ
Program n_1;
Var a, b, c, S, n: Integer;
Var q:Real;
Begin
Writeln('' Введите первое число'');
Readln(a) ;
Writeln('' Введите второе число'');
Readln(b) ;
Writeln('' Введите третье число'');
Readln(c) ;
S:=a+b+c;
n:=a*b*c;
q:=S/3;
Writeln(S) ;
Writeln(n) ;
Writeln(q) ;
end.
1) 10101-1110=111₂
2) 111₂=2²*1+2*1+2⁰*1=4+2+1=7₁₀
Решение пишу с телефона. Поэтому проверить, компилируется ли программа или нет, я не смогу.
program zd1;
var x,y,pi:integer;
begin
writeln ('Введите значение переменной X');
readln (x);
pi:=3,14;
if (0 <= x <= 1) then y:=x^4-4
else
y:=sqr(x)-sin (pi*sqr (x));
writeln ('Ответ = ', y);
end.