Мистер фокс придумал новый генерировать пароли. он создает длинную строку из произвольного количества символов, а затем вычеркивает из нее некоторые символы. оставшаяся строка (без пробелов) будет паролем. чтобы пароль был надежным, нужно, чтобы в нем было побольше символов, а чтобы его легче было запоминать, нужно, чтобы он был палиндромом, то есть, читался слева направо так же, как справа налево. дана строка tab! c11! bc? bc0caaa1bt00 мистеру фоксу вычеркнуть некоторые символы, чтобы получился пароль-палиндром наибольшей возможной длины. в качестве ответа укажите длину этого пароля. в данной вам строке есть только латинские строчные буквы, цифры и знаки ! и ? . комментарий. максимальная длина пароля-палиндрома, который можно получить из строки ! ш13ал? а7770ш19, равна 5. то есть, для этой строки в качестве ответа нужно было бы вывести число 5. а сами пароли могут быть разными, например: шалаш или 1а? а1
Ответы
Var x1,y1,x2,y2,v1,v2:real;
begin
writeln("введите количество метров пробегания жирафа");
read(y1);
writeln("введите, за сколько секунд он должен пробежать");
read(x1);
writeln("введите количество метров пробегания зайца");
read(y2);
writeln("введите, за сколько секунд он должен пробежать");
read(x2);
v1:=y1/x1;
v2:=y2/x2;
if v1>v2 then
begin
writeln("жираф чемпион");
end
else if v1<v2 then
begin
writeln("заяц чемпион");
end
else
begin
writeln("победила дружба);
end;
end;
begin
writeln("введите количество метров пробегания жирафа");
read(y1);
writeln("введите, за сколько секунд он должен пробежать");
read(x1);
writeln("введите количество метров пробегания зайца");
read(y2);
writeln("введите, за сколько секунд он должен пробежать");
read(x2);
v1:=y1/x1;
v2:=y2/x2;
if v1>v2 then
begin
writeln("жираф чемпион");
end
else if v1<v2 then
begin
writeln("заяц чемпион");
end
else
begin
writeln("победила дружба);
end;
end;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
m = 10;
var
t: array[1..m] of integer;
i, n, nm, sm: integer;
begin
//Заполняем массив сл.числами и подсчитываем
//количество элементов и среднее арифметическое
//согласно условию задачи
for i := 1 to m do
begin
t[i] := random(-20, 20);write(t[i]:4);
if (i > 1) and (i <= m) then
if t[i] > t[i - 1] then n := n + 1
else if t[i] < t[i - 1] then begin
sm := sm + t[i];nm := nm + 1;
end;
end;
writeln;
writeln('число элементов больших предыдущего = ', n);
writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
end.
Тестовое решение:
6 13 19 8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5
const
m = 10;
var
t: array[1..m] of integer;
i, n, nm, sm: integer;
begin
//Заполняем массив сл.числами и подсчитываем
//количество элементов и среднее арифметическое
//согласно условию задачи
for i := 1 to m do
begin
t[i] := random(-20, 20);write(t[i]:4);
if (i > 1) and (i <= m) then
if t[i] > t[i - 1] then n := n + 1
else if t[i] < t[i - 1] then begin
sm := sm + t[i];nm := nm + 1;
end;
end;
writeln;
writeln('число элементов больших предыдущего = ', n);
writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
end.
Тестовое решение:
6 13 19 8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
ВСЕ БАЛЫ НА КАРТИНКЕ ХОТЯ-БЫ 1 ЗАДАНИЕ
Автор: is490
Укажите условия правельно зиписанные на языке паскаль x> 0 5> y c=< 5
Автор: katar050419735
Найти сумму ряда s = 15+16+17+...+n составить программу в КуМире
Автор: molodoychek
tab!c11!bc?bc0caaa1bt00
t a b ! c 1 1 ! b c ? b c 0 c a a a 1 b t 0 0
t b 1 b c ? b c 1 b t
ответ: 11