Ищем самую большую цифру и добавляем к ней единицу.
Самая большая тут семь, семь плюс один равно восемь.
<em>Ответ: основание 8</em>
Правильный ответ д 6 потамучто он правильный
var
a: array [1..4] of char;
s: string;
i: byte := 1;
begin
readln(s);
while (i < length(s)) do
begin
if ((not(s[i] in ['ж', 'ч', 'ш', 'щ'])) or (pos(s[i], s) > i)) then
delete(s, i, 1)
else
i += 1;
end;
writeln(s);
end.
Суть в том, чтобы удалить все нешипящие буквы, а также повторы шипящих, после чего просто вывести строку
Ответ:
Установить программу на данную учётную запись, либо перенести ярлык и программу обратно.