ЗАДАНИЕ№2
Во и задания
Запишите на языке Паскаль программу решения
задачи.
В некотором населённом пункте N домов. Известно,
СКОЛЬКО людей проживает в каждом из домов.
Исходные данные (количество Жильцов) представить
с линейной таблицы А, содержащей N
элементов: A[1] - Количество Жильцов дома 1, A[2] -
Количество Жильцов дома 2, ..., A[N - Количество
Жильцов дома N.
В общем случае A[i] — Количество жильцов дома і,
где і принимает все значения от 1 до п (i =1,n).
Результат работы обозначить через S.
Считайте количество жильцов дома случайным
числом из диапазона от 50 до 200 человек, а число
домов п = 30.
Паша имеет выйгрушную стратегию и сможет выйграть за один ход, если s=27 тогда ему достаточно добавить один камень чтобы игра закончилась при 28 камнях в куче или если s=14,15,16,17,18,19,20,21,22(44/2 и 28/2 т.е от 14 до 22), тогда не обходимо удвоить количество камней в куче.
Объяснение:
Паша имеет выйгрушную стратегию и сможет выйграть за один ход, если s=27 тогда ему достаточно добавить один камень чтобы игра закончилась при 28 камнях в куче или если s=14,15,16,17,18,19,20,21,22(44/2 и 28/2 т.е от 14 до 22), тогда не обходимо удвоить количество камней в куче.
Формулы площадей квадрата 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
Квадрат не умещается в круге