// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 function BinToOct(s:string):string; // переводит двоичную триаду в восьмеричную цифру begin case s of '000':Result:='0'; '001':Result:='1'; '010':Result:='2'; '011':Result:='3'; '100':Result:='4'; '101':Result:='5'; '110':Result:='6'; '111':Result:='7'; end end;
begin var s2:=ReadlnString('Введите целое двочное число'); var k:=s2.Length mod 3; if k<>0 then s2:=(3-k)*'0'+s2; // дополнить до кратной 3 длины var s8:=''; for var i:=1 to s2.Length div 3 do s8:=s8+BinToOct(Copy(s2,3*i-2,3)); Writeln(s8); end.
Пример Введите целое двочное число 10101100001 2541
Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра.. Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие. Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 begin var s1:=ReadReal('Площадь квадрата'); var s2:=ReadReal('Площадь круга'); if pi*s1<2*s2 then Writeln('Квадрат умещается в круге') else Writeln('Квадрат не умещается в круге') end.
Тестовое решение: Площадь квадрата 24.6 Площадь круга 28.4 Квадрат не умещается в круге
З якою країною США в 1898 р. вели війну за колоніальні володіння? *
Англією;
Францією;
Іспанією;
Португалією.
Объяснение:
З якою країною США в 1898 р. вели війну за колоніальні володіння? *
Англією;
Францією;
Іспанією;
Португалією.