Решить задачи составив алгоритм (блок-схему)
Задача 1: Кот Матроскин и пес Шарик нашли клад, который состоял из 9 одинаковых монет. В коробке, в которой лежали монеты, друзья обнаружили записку: «При чашечных весов без гирь найдите среди этих 9 монет одну золотую и купите почтальону Печкину велосипед. Сделайте это при двух взвешиваний. Золотая монета более тяжелая».
Задача 2: Злая мачеха, отправив падчерицу за водой, дала ей 2 кувшина емкостью 5 и 8 литров и велела принести ровно 3 литра воды. Составь алгоритм, в котором описывается, как должна действовать падчерица.

1) делим монеты на 3 кучи в каждой по 3 монеты, ложим на весы 2-е кучи, какая из них тежелей в той и золотая монета, если кучи одинаково весят, то золотая монета в той куче которую не звешвали. Теперь берем ту кучу в которой золотая монета (мы еще не знаем какая она) ложим 2-е монеты на весы, какая монета тежелее та и золотая если монеты одинаково весят то золотая монета та которую мы не положили на весы, задача решина. (писал не я, поэтому присутствуют ошибки.)

2) 1. наливаем воду в 9л ведро

2. переливаем в 5 л.

3. остается 4л.

4. выливаем из 5л и переливаем в 5л оставшиеся 4литра.

5. снова набираем в 9л.

6. переливаем в 5л 1литр(к тем 4, которые там уже налиты). остается 8литров.

7. выливаем воду из 5л.

8. переливаем от оставшихся 8литров в 5л

9. остается 3литра.

делим монеты на 3 кучи в каждой по 3 монеты, ложим на весы 2-е кучи, какая из них тежелей в той и золотая монета, если кучи одинаково весят, то золотая монета в той куче которую не звешвали. Теперь берем ту кучу в которой золотая монета (мы еще не знаем какая она) ложим 2-е монеты на весы, какая монета тежелее та и золотая если монеты одинаково весят то золотая монета та которую мы не положили на весы, задача решина

Подробнее - на -

Объяснение:

uses crt; var

  a,b,c,min: integer; begin  writeln('введи три числа: ');   readln(a,b,c);   min: =a;   if b< min then min: =b;   if c< min then min: =c;   writeln('наименьшее из этих чисел:   ',min); end.

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.вот в одном решении