Задача 1:
var a,r: double;
begin
writeln('Введите сторону квадрата a');
readln(a);
writeln('Введите радиус круга r');
readln(r);
writeln('Площадь фигуры: ',a*a-Pi*r*r);
end.
Задача 2:
var a, b, c, D, x1, x2: real;
begin
writeln('Введите A, B, C');
readln(a,b,c);
D:=b*b-4*a*c;
if D>=0 then
begin
if (sqrt(D)=0) then
begin
x1:=-b/(2*a);
write('Один корень ',x1:0:2);
end
else
begin
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
write('Первый корень: ',x1:0:2,' Второй корень: ',x2:0:2);
end
end
else write('Корней нет');
end.
2)Переводим из 2 в 10:10100110(2)=1*2(7)+0*2(6)+1*2(5)+0*2(4)+0*2(3)+1*2(2)+1*2(1)+0*2(0)=128+0+32+0+0+4+2+0=166(10), ну по крайне мере нас так учили!) ты получаешь это все в битах а потом просто переводишь в байты,в 1 байте=8 бит!)Желаю удачи!!)