Задача орешки. Решить на языке Pascal.
Белочка собрала в лесу N шишек c орешками. Белочка очень привередливо выбирала шишки, и брала только те, в которых ровно M орешков. Также известно, что для пропитания зимой ей необходимо не менее K орешков. Определите, хватит ли на зиму орешков белочке.
Входные данные
Входной файл INPUT.TXT содержит три натуральных числа: N, M и K (N, M ≤ 100, K ≤ 10 000).
Выходные данные
В выходной файл OUTPUT.TXT выведите «YES» если белочке хватит орешков и «NO» в противном случае.
Двухзначное число может быть записано в с/с по основанию n следующим образом: na+b. По условию число оканчивается цифрой 8 и его значение равно 30. Получаем уравнение:
na+8=30 ⇒ na=22.
Раскладываем 22 на простые множители: 22=1х2х11
Решение уравнения в целых числах при условии n>8 дает два варианта ответов:
(n=11, a=2), (n=22, a=1).
Это порождает два числа:
Существует ли с/с по основанию n, в которой запись числа 30 будет одноразрядной?
Уравнение 8n=30 не имеет решений в целых числах, поэтому такой с/с не существует.
ответ: 30(10)=18(22)=28(11).
x,y:integer;
vcp,dx,dy:real;
begin
Write('Возраст Тани='); Read(x);
Write('Возраст Мити='); Read(y);
vcp:=(x+y)/2;
dx:=x-vcp; dy:=y-vcp;
Writeln('Средний возраст равен ',vcp);
if dx>0 then begin
Writeln('Таня старше среднего возраста на ',dx,' лет,');
Writeln('а Митя младше среднего возраста на ',-dy,' лет.')
end
else
if dx=0 then Writeln('Таня и Митя ровесники')
else begin
Writeln('Таня младше среднего возраста на ',-dx,' лет,');
Writeln('а Митя старше среднего возраста на ',dy,' лет.')
end
end.
Тестовое решение:
Возраст Тани=15
Возраст Мити=12
Средний возраст равен 13.5
Таня старше среднего возраста на 1.5 лет,
а Митя младше среднего возраста на 1.5 лет.