1)
1)Автомат получает на вход четырёхзначное натуральное число и строит новое число по следующему алгоритму:

1. вычисляются суммы первой и второй, второй и третьей и третьей и четвёртой цифр;

2. из полученных сумм отбрасывается наибольшая;

3. остальные суммы записываются в порядке неубывания.

Пример. Исходное число:1284. Суммы: 1 + 2 = 3; 2 + 8 = 10; 8 + 4 = 12. Отбрасывается наибольшая сумма 12. Результат: 310. Укажите наименьшее число, при вводе которых автомат выдаёт значение 1215.

2)Автомат получает на вход четырёхзначное натуральное число и строит новое число по следующему алгоритму:

1. вычисляются суммы первой и второй, второй и третьей и третьей и четвёртой цифр;

2. из полученных сумм отбрасывается наибольшая;

3. остальные суммы записываются в порядке невозрастания.

Пример. Исходное число:1284. Суммы: 1 + 2 = 3; 2 + 8 = 10; 8 + 4 = 12. Отбрасывается наибольшая сумма 12. Результат: 103. Укажите наименьшее число, при вводе которых автомат выдаёт значение 105.

varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; end.вот в одном решении

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}

гласные звуки иероглифами не передавались.

program qwe;

uses crt;

var  c, s, i: integer; y: real;

begins: =0; c: =0; for i: = -2 to 27 dobegins: =s+i; c: =c+1; y: =s/c; end; writeln('srednee arifmeticheskoe=',y);

readln; end.

вот так вот должна быть 1 . ты ни где не илпользовал(а) счетчик, а это неправильно=) в этом твоя и была ошибка=)