Составить блок-! к финалу конкурса лучшего по профессии «специалист электронного офиса» были допущены трое: иванов, петров, сидоров. соревнования проходили в три тура. иванов в первом туре набрал m1 , во втором n1, в третьем-p1. петров –m2,n2,p2: соответственно сидоров – m3,n3,p3. составить программу, определяющую, сколько набрал победитель.

объясняю: нужно найти сумму каждого участника, после чего найти максимальное значение и вывести его на экран. 

сначала мы вводим эти самые , потом складываем. далее sort3(iv,pet,sid) - это функция. если вы не знакомы с функциями, то просто перерисуйте вместо этого укрупненного блока все, что на следующей странице, вместо переменных а, в и с подставляя те переменные, которые вы используете для хранения суммы участников. 

что делает функция sort3: он сортирует по убыванию значения, хранящиеся в переменных а,в и с. после чего для того, чтобы получить максимальное значение, нам достаточно вывести первый элемент - а. функция swap   выполняет обмен значений переменных. sort2 - сортирует два элемента. она для sort3. 

в основной программе вместо переменных а,в и с использовались переменные iv, pet и sid. при неиспользовании функций подставляйте их. 

можно использовать простые развилки и не заморачиваться с sort3, но выходит неэффективно, некрасиво.при увеличении числа участников количество развилок вырастет в несколько раз - оно вам надо? проще отсортировать. 

слева сколько воды находится в кувшинах

8 - 0 : 1. наливаем в кувшин 8 л

5 - 3 : 2. переливаем из 8 л кувшина в 3 литровый, и выливаем в реку

2 - 3 : 3. переливаем из 8 л кувшина  3 литровый и выливаем в реку

0 - 2 : 4. переливаем оставшиеся 2 л из 8 литрового в 3 литровый кувшин

8 - 2 : 5. наливаем воду в 8 л кувшин

7 - 3 : 6. наливаем воду из 8 л кувшина в 3 л пока он не заполниться, т.е. наливаем туда 1 л, в 8 л кувшине остается 7 литров.

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('слово которое хотите вставить',s,7);

writeln (s);

readln;

end.