Дели каждое число на 2 до тех пор пока у тебя остаток не получится меньше 2, а потом результат считай с остатков каждого результата деления. Вот так:
<span>42/2=21, ост.0 </span>
<span>21/2=10, ост.1 </span>
<span>10/2=5, ост.0 </span>
<span>5/2=2, ост.1 </span>
<span>2/2=1, ост.0 </span>
<span>Итог: десятичное число 42 из остатков формирует двоичное 101010 (проверка=32+8+2). Все правильно.</span>
Var
a,r,rvp,rop:real;
begin
Write('Введите сторону квадрата и радиус окружности: ');
Readln(a,r);
rvp:=a/2; rop:=a*sqrt(2)/2;
if r<rvp then Writeln('Окружность расположена внутри вписанной')
else
if r=rvp then Writeln('Введен радиус вписанной окружности')
else
if r<rop then Writeln('Окружность расположена между вписанной и описанной')
else
if r=rop then Writeln('Введен радиус описанной окружности')
else Writeln('Окружность расположена вне описанной')
end.
Тестовое решение:
Введите сторону квадрата и радиус окружности: 8 5
Окружность расположена между вписанной и описанной
program znachy2;
uses crt;
var n,l:integer;
k,y:real;
begin
y:=0;
readln(l);
for n:=1 to l do
begin
k:=1/sqr(n);
y:=k+y;
end;
writeln(y)
end.
1 задание на ЛИСТ1
2 задание на ЛИСТ2
формулы, которые были использованы для расчета можно посмотреть, если выделить ячейку с ответом