<span>Осенью я ехала на дачу с семьёй отдыхать. И тут вижу кто-то рвёт все листья из деревьев , этот человек был в чёрном плаще и в остроконечной шляпе. Я сказала папе давай остановимся тут, не будем ехать на дачу . И папа ответил хорошо, давайте остановимся тут. Мы остановились не далеко от того места где я видела этого человека . И я сказала маме что хочу не много прогуляться и мама сказала иди только не далеко и я пошла в то место где я видела этого человека , не сказав об этом ни кому . Я пошла туда и увидела этого человека. Он куда то шёл и я пошла за ним . Вдруг вижу что этот человек хочет зайти в замок который шёл. Я была очень удивлена этим замком и чуть не ахнула от страха он был весь чёрный и высокий, наверное этажей сто. И на нём везде были нарисованы черепа . Этот человек зашёл в замок и я за ним. Изнутри замок был ещё хуже и страшнее чем снаружи . Там было полно летучих мышей и ходящих скелетов . Хорошо что я успела спрятаться за статуями иначе все. Статуи тоже двигались и шатались . Одно статуе зарычало на меня и я убежала дальше. Вхожу и вижу лабораторию ведьмы. Оказывается что это не человек а ведьма. Я зашла туда и спряталась за шкафом . И вижу тут ведьма кладёт в какой то котел листья которые она рвала. . Она сказала круцыо и вышла . Я подошла увидела книгу заклинаний. Вдруг пришла ведьма и сказала на меня заклинание бомба макси я успела убежать . Я успела прочитать заклинании из книги . Я притворилась перед ведьмой как будто я тоже злая . И она поверила мне . В руках у неё была волшебная палочка . Она положила в сторонку палочку . Потом она открыла шкаф . Там были коробки волшебных палочек . Она попросила меня взять палочку и я взяла одну палочку. Она не выбрала меня, я взяла вторую тоже нет , я взяла третью она выбрала меня . Потом я произнесла заклинание редукто она убежала . Потом она сказала заклинание круцыо и я у бежала . Потом я произнесла заклинание Авадакидавра и ведьма умерла. Вижу замок начал падать и я убежала из замка. Снаружи осень уже стала ещё красивее и лучше чем раньше. Я вернулась к семье и они на меня толпой: где я была? И тогда я сказала сесть им на скамейку и я начала рассказывать им подробно о своих приключениях. </span>
1. Линейный Integer;
2. Два блока с циклами;
3. Размер массива от 0 до 10 (11 элементов);
4. Обрабатываются все 11.
P.S программа работает для русских символов. Если нужны латинские, то поменяйте все "а","у" и "х" на соответствующие
program n1;
uses crt;
var
st:string;
i:integer;
begin
writeln('Введите строку'); readln(st);
for i:=1 to length(st) do
if (st[i]='а') and (st[i+1]='х') then st[i]:='у';
writeln(st);
<span>end.</span>
225 в десятичной с.с=11100001 в двоичной с.с
Ответ: 4 (единицы).
Program Program1;
Var
a:array [1..10] of integer;
i:integer;
rez:boolean;
begin
randomize;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],',');
end;
rez:=false;
for i:=1 to 10 do
begin
if (i>1) and (a[i]=a[i-1]) then rez:=true;
if (i<10) and (a[i]=a[i+1]) then rez:=true;
end;
if rez then writeln(' Есть одинаковые соседние элементы') else
writeln(' Нет одинаковых соседних элементов');
<span>end.</span>