Собрать ветки.
взять спички .
разжечь костёр.
1 уравнение:
15 (8)=13 (10)
100+13=х, х=113 (10)=1110001 (2)
2 уравнение
417 (8)=271 (10)
СА (16)=202 (10)
271+202=473(10)=731(8)
3 уравнение:
753(8)=491 (10)
411 (8)=289 (10)
491-289=202(10)=312 (2)
Var x,y,z: Real;
Begin
Write('Enter x: ');
Read(x); Write('Enter y: ');
Read(y); z:=(sqr(x)+3*y-sqrt(z))/(y*sin(z)+exp(abs(x)));
Writeln(z);
<span>end.</span>
Program exapmle2;
var x,y,k:integer;
begin
writeln('Эта программа определяет, число соседств чисел с одинаковыми знаками');
write('Введите число:');
read(x);
y:=x;
write('Введите число:'); //добавить эти 2 строки
read(x);
k:=0;
while x<>0 do // поменять у на х
begin
//if x*y<0 then inc(k); убрать эту строку
if x*y>0 then inc(k);
y:=x;
read(x); // изменить у на х
end;
writeln(' Число соседств ',k);
writeln('нажмите Enter для завершения работы программы');
readln;
end.