Совершено убийство. Подозреваются Браун, Джон, Смит. Один из них – брат убитого, другой – сосед, третий – случайный знакомый. Каждый из них сделал заявление. Браун. Если ни я, ни Джон невиновны, то Смит тоже невиновен. Смит. Чтобы обвинить меня и Брауна, достаточно признать Джона невиновным. Но Джон виновен. Значит, нельзя считать, что ни я, ни Браун невиновны. Джон. Если меня сочтут виновным, то Смиту удастся оправдаться только тогда, когда оправдается Браун. Но виновен либо Смит, либо Браун. Я невиновен. Следователь сообщил, что правду сказал только брат убитого, остальные солгали. Кто убийца?
Формулы площадей квадрата 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
Квадрат не умещается в круге
FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.