Var a, r: real; begin write('a = '); read(a); write('r = '); read(r); if r >= a/sqrt(2) then writeln('Квадрат поместится в круг') else if r <= a/2 then writeln('Круг поместится в квадрат') else writeln('Круг и квадрат не поместятся друг в друга') end.
Пояснение: Радиус описанной около квадрата окружности равен половине диагонали квадрата. Диагональ квадрата по теореме Пифагора = √(a² + a²) = a√2, соответственно радиус = a√2/2 = a/√2. Если радиус данной окружности, больше либо равен a/√2, тогда квадрат помещается в круг. Радиус вписанной в квадрат окружности равен половине его стороны, т.е a/2. Если радиус данной окружности меньше либо равен, чем a/2, тогда круг вмещается в квадрат.
Для таких задач используется формула, называемая "сложный процент" Здесь А - начальное значение, В - ежегодный процент, n - количество лет, х - результирующее значение. По условию x=A×m, откуда можно найти n, затем округлив его до ближайшего большего целого.
Получается, что значение А в условии является лишним.
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016 begin var m:=ReadReal('m='); var B:=ReadReal('B%='); Writeln('Кол-во лет равно ',Ceil(Ln(m)/Ln(1+B/100))) end.
нет
Комментарии, которые могут быть вложенными (*...*) или {...} или (*...} или {...*)
Регистрозависимость нет
Регулярное выражение идентификатора переменной [A-Za-z_][A-Za-z0-9_]*
Регулярное выражение идентификатора функции [A-Za-z_][A-Za-z0-9_]*
Присваивание значения переменной varname := value
Объявление переменной varname: type
Объявление переменной с присваиванием значения varname: type = value
Группировка выражений ( ... )
Блок begin ... end
Тождественное равенство =
Тождественное неравенство <>
Сравнение < > <= >=
Определение функции function f(p1: type1; p2: type2; ...): returntype;
Вызов функции f(a, b, ...)
Вызов функции без параметров f
Последовательность ;
Если - то if condition then trueBlock
Если - то - иначе if condition then trueBlock else falseBlock
Бесконечный цикл while true do loopBody
Цикл с предусловием while condition do loopBody
Цикл с постусловием repeat loopBody until condition
Цикл for - next для диапазона целых чисел с инкрементом на 1 for i := first to last do loopBody
Цикл for - next для диапазона целых чисел с декрементом на 1 for i := last downto first do loopBody
Объяснение: