Картинная галерея представляет собой собой прямоугольник 2 на 5 клеток (см. рисунок). вход в галерею - id1037958320211211 от Logutova 11.12.2021 22:30

Question

Информатика: Картинная галерея представляет собой собой прямоугольник 2 на 5 клеток (см. рисунок). вход в галерею ведет сразу в комнату номер 1, двери есть между любыми двумя комнатами, соседними по стороне, выход находится в комнате номер 10. мистер фокс зашел в галерею через вход, осмотрел картины и вышел через выход. в процессе осмотра он бывал в некоторых комнатах по несколько раз. в комнате №1 он был один раз, в комнате №2 два раза, в комнате №3 три раза, …, в комнате №9 девять раз. сколько раз мистер фокс

Logutova · Accepted Answer

Var n,m,osn: integer;
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.

MOGZ ответил