Ярешил узнать, какое сегодня число, и увидел, что завтрашний день в календаре обведён красным цветом. я вспомнил, что у кого-то из моих друзей день рождения (лида, максим, аркадий, борис и ольга). нужно узнать у кого из них день рождения. к концу дня мне удалось собрать немного информации о каждом из моих друзей. разобраться что к чему. у каждого друга есть своё любимое лакомство (зефир, мармелад, шоколад, печенье и яблоки), увлечение (цветы, куклы, одежда, спорт и техника) и место жительства. все они живут на разных планетах (эрида, хаумеа, церера, плутон, макемаке). у двух друзей день рождения в одно время года, у остальных – в разные. ⦁ ольга совершенно не разбирается в цветах и технике. ⦁ максим и лида родились в одно время года, но не зимой. ⦁ борис, хоть и родился весной, но предпочитает печенье яблокам. ⦁ аркадий любит фрукты. ⦁ ольга живёт к солнцу ближе, чем максим с лидой, но дальше, чем борис. ⦁ человек, который любит зефир, переедет на плутон, если там можно будет играть в футбол. ⦁ борис не переедет на плутон, так как там не умеют шить кукол. ⦁ максим остался жить на хаумеа только ради местного мармелада. ⦁ на макемаке хорошо растут цветы. ⦁ ольга не боится холода в отличии от аркадия, который родился в самое тёплое время года. ⦁ специалист по технике живёт на хаумеа, то есть ближе к солнцу, чем лида. ⦁ сейчас на улице зима. решите , определив любимое блюдо, увлечение, место жительства и время года, в которое родились друзья валеры
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
nmb:=0; s:=0;
k:=n; l:=1;
while k>0 do
begin
s:=k mod 10;
k:=k div 10;
nmb:=nmb+l*s;
l:=l*osn;
end;
Result:=nmb;
end;
{ конец функции}
begin
write('число: ');
readln(n);
write('квадрат какого числа: ');
readln(m);
osn:=10;
while osn>=2 do
begin
osn:=osn-1;
if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
begin
writeln('основание системы = ',osn);
break;
end;
end;
end.