1. Заполните таблицы. 2. Заполните формулами пустые ячейки. Засушливым считается месяц, в котором количество выпавших осадков меньше 15 мм
(воспользуйтесь формулой СЧЕТЕСЛИ).
3. Заполните столбец Прогноз:
засуха, если количество осадков < 15 мм;
дождливо, если количество осадков >70 мм;
нормально (в остальных случаях).
4. Представьте данные таблицы Количество осадков (мм) графически, расположив диаграмму на Листе 2. Выберите тип диаграммы и
элементы оформления по своему усмотрению.
5. Переименуйте Лист 1 в Метео, Лист 2 в Диаграмме. Удалите лишние листы рабочей книги.

var slovo,simval: string; i,k: integer; begin k: =0;   write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then  writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой  

pust' x chaek na pervom ostrove,a y na vtorom.

togda iz uslovia mozhno sostavit' sistemu:

x+y=79;

x-15-12=y+12;

togda y=x-39;

x+(x-39)=79;

x=59;

y=59-39=20.

otvet: 59 chaek na pervom ostrove, 20 na vtorom.

стр1: 'дерево';

стр2: 'обработка';

стр3: стр1+стр2;

                      стр3: ='деревообработка';

const

  n=10;  

var

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

  i,x,k,j,s: integer;  

begin

randomize:

for i: =1 to n do a[i]: =random(255);     {формируем случайный массив}

for i: =1 to n do write(a[i],' ');                         {выводим этот массив его на экран}

writeln('x='); read(x);                                                 {вводим x, в программе}

for i: =1 to n do if x=a[i]                     {если х=a[i] тогда}

then for j: =i to n do                                                  {начинаем новый цикл с i до n}

              s: =s+a[j];                                                                 {вычисляем сумму}  

writeln(s);                                        

end;