Вот тебе дано "ГО" , к нему приписываешь обратный порядок букв ГО,значит "ОГ". Уже получается ГООГ. После этого приписываешь ко всему этому букву,стоящую после О в алфавите( т.к буква "О" последняя буква "ГО"). После О в алфавите идет П,поэтому получается в итоге ГО+ОГ+П= ГООГП. Теперь, нужно повторить этот алгоритм второй раз,только уже с набором букв, который получился после первого раза выполнения алгоритма,т.е с ГООГП. Начнем. ГООГП записываем наоборот => ПГООГ. Получаем ГООГП + ПГООГ + Р = ГООГППГООГР Готовый ответ: ГООГППГООГР
Program project1; uses crt,math; var s:real; i,j,f:real; a:integer; begin writeln('vvedite 1 chislo ');readln(i); writeln('vvedite 2 chislo ');readln(j); writeln('vvedite 3 chislo ');readln(f); s:=i; if j<s then s:=j; if f<s then s:=f; if s<0 then begin if i<0 then inc(a); if j<0 then inc(a); if f<0 then inc(a); writeln('kolichestvo otricatelnix ',a:2); end else begin if i>0 then i:=i*-1; if j>0 then j:=i*-1; if f>0 then f:=i*-1; end; writeln('min chislo ',s:2:0); readln; end.
