Var
s, si, sm: string;
i, n: integer;
f: Text;
begin
Assign(f, 'input.txt');
Reset(f);
Readln(f, s);
Close(f);
Assign(f, 'output.txt');
Rewrite(f);
n := Length(s);
sm := Copy(s, 2, n - 1);
for i := 2 to n do
begin
si := s;
Delete(si, i, 1);
if sm < si then sm := si
end;
Writeln(f, sm);
Close(f)
end.
А) 10 ячеек (5строк*2столбца)
в) 130 ячеек (ячейки в одном столбце, значит 153-23=130)
В) 9 ячеек (3 столюца* 3 строки)
Добрый вечер, два варианта решения вашей задачи предоставлены у прикрепленном файле. Первый вариант решения соответствует вашему первому пункту, второй - второму.
Буду очень благодарен за отметку "Лучший ответ"
Будут вопросы пишите в коментарии
1 кувшином 3 л наливать воду в кувшин 8л. Наполнив большой кувшин, в маленьком останется 1л
2 вылить все из большого кувшина, перелить туда 1л из маленького и налить еще два маленьких кувшина в большой
1) 26 символов = по другому 2 в 5 степени (с остатком);
2) 240 * 5 = 1200 бит