1вы находитесь в квест-комнате по мультфильму wall-e! чтобы выбраться из комнаты, необходимо выполнить такие шаги: 1. узнайте длину строки s текста и выведите это значение в консоль. 2. выведите весь текст в нижнем регистре. 3. кто-то допустил ошибку и некорректно написал имя робота wall-e! замените все вхождения слова walle на wall-e. 4. наконец, подсчитайте, сколько раз в тексте было использовано слово earth. код к 1: s = "in a distant, but not so unrealistic, future \ where mankind has abandoned earth because it has \ become covered with trash from products sold by \ the powerful multi-national buy n large corporation, \ walle, a garbage collecting robot has been left to \ clean up the mess. mesmerized with trinkets of earth's \ history and show tunes, walle is alone on earth except \ №7 2 for a sprightly pet cockroach. one day, eve, a sleek \ (and dangerous) reconnaissance robot, is sent to earth to \ find proof that life is once again sustainable." # step 1 len() # step 2 ? .upper() # step 3 ? .replace(*, *, *) # step 4 ? .count()
MAX_SIZE = 10;
var
a: array[1..MAX_SIZE] of integer;
i, size: integer;
procedure delete_odd_elements();
var i, j: integer;
begin
i := 1;
repeat
if odd(a[i]) then
begin
dec(size);
for j := i to size do
a[j] := a[j + 1]
end
else inc(i);
until i > size;
end;
begin
writeln('Исходный массив: ');
size := MAX_SIZE;
for i := 1 to size do
begin
a[i] := random(100);
write(a[i] : 3);
end;
delete_odd_elements;
writeln;
writeln('Полученный массив: ');
for i := 1 to size do
write(a[i] : 3);
end.