Var
ch,otv,perv,last:Integer;
begin
WriteLn('Введите число');
readln(ch);
last:=ch mod 100;
ch:=ch div 100;
perv:= ch div 10;
ch:=ch div 10;
otv := perv*1000+4*100+last;
WriteLn('Ответ: ',otv)
end.
пж как лучший
Program lyg;
var
all,last,seven: real;
ii,day: integer;
begin
last := 10;
all := 10;
day := 0;
for ii := 1 to 10 do
begin
last := last+(last*0.1);
all := all+last;
if ii=7 then
seven := all;
writeln('day ',ii,': ',round(last));
if day = 0 then
if all > 100 then
day := ii;
end;
writeln('Overall distance of 7 days: ',seven);
writeln('Distance 100km is reached at ',day,' day');
<span>end.</span>
Ответ: 3) Секретное слово (ПАРОЛЬ)
ПАР
МОЛЬ => ОЛЬ
Если слева (внизу или вверху) от рисунка стоят запятые (одна или несколько), то отбрасываются первые буквы слова (по количеству запятых).
Одну из 32 букв можно отгадать (<span>при оптимальной стратегии игры</span>) максимум за log(2)32 = 5 вопросов.
Отгадать слово из 5 букв можно максимум за 5*5 = 25 вопросов.