begin readln(a, d, c); if a < d then begin t := a;a := d;d := t; end; if a < c then begin t := a;a := c;c := t; end; if d < c then begin t := d;d := c;c := t; end; writeln(a, ' ', d, ' ', c); end.
Вот тебе дано "ГО" , к нему приписываешь обратный порядок букв ГО,значит "ОГ". Уже получается ГООГ. После этого приписываешь ко всему этому букву,стоящую после О в алфавите( т.к буква "О" последняя буква "ГО"). После О в алфавите идет П,поэтому получается в итоге ГО+ОГ+П= ГООГП. Теперь, нужно повторить этот алгоритм второй раз,только уже с набором букв, который получился после первого раза выполнения алгоритма,т.е с ГООГП. Начнем. ГООГП записываем наоборот => ПГООГ. Получаем ГООГП + ПГООГ + Р = ГООГППГООГР Готовый ответ: ГООГППГООГР
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.
a, d, c, t: integer;
begin
readln(a, d, c);
if a < d then begin t := a;a := d;d := t; end;
if a < c then begin t := a;a := c;c := t; end;
if d < c then begin t := d;d := c;c := t; end;
writeln(a, ' ', d, ' ', c);
end.