25
вы находитесь в квест-комнате по мультфильму 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 \

program prim;

var i,x : integer;

begin

x: =1;

for i: =1 to 5 do

begin write (x,'   ');

x: =x+2;

end;

end. 

графический файл состоит из 10000 точек.. используется всего два цвета, то есть на кодировку 1 цвета уходит 1 бит информации.. => 10000 бит

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

разделим монеты на кучки 1002 1002 и одна монета

1-е взвешивание сравниваем 1002 и 1002

если они одинаковые то они настоящие и значит осталось сравнить одну монету с какой-нибудь из этих кучек и выяснить тяжелее она или легче

если одна из куч тяжелее то ее делим пополам и снова взвешиваем

если половинки оказались одинаковые, значит они настоящие и фальшивая монета легче настоящей, а если разные то фальшивая монета тяжелее настоящей