Нужна ваша с информатикой разработайте алгоритм, который переставляет цифры в числе так, что получается следующее по значению крупное число (пусть число содержит все десять цифр по одному разу). например 5647382910 получается из 5647382901 перестановкой двух последних цифр. считать что все цифры находятся уже в массиве. заранее огромное ; ))

👇

Ответ:

anastasia8879

03.12.2021

A = [int(s) for s in input()]a[len(a)-2],a[len(a)-1] = a[len(a)-1],a[len(a)-2]for elem in a: print(elem, end='')

Что то подобное этому?

4,8(65 оценок)

Открыть все ответы

Ответ:

kjhf2225

03.12.2021

"Типовой школьный" Паскаль:

// PascalABC.Net 3.0, сборка 1064
const
k = 100;

var
s, wd: string;
i, j, m, n, pt, step: integer;
Words, WordsSort: array[1..k] of string;
InOrder: boolean;

begin
Write('Введите строку: '); Readln(s);
n := Length(s); pt := 1; m := 0;
repeat
    // Пропускаем все символы до первого непробельного
    while pt <= n do
      if Ord(s[pt]) <= 32 then Inc(pt) else break;
    if pt <= n then begin
      // Выделяем очередное слово
      wd := '';
      while pt <= n do
        if Ord(s[pt]) > 32 then begin wd := wd + s[pt];Inc(pt) end
        else break;
      if wd <> '' then begin Inc(m);Words[m] := wd end
    end
until pt > n;
// Теперь Words содержит все m слов.
// Отсортируем их в массиве WordsSort методом Шелла
for i := 1 to m do WordsSort[i] := Words[i];
step := m div 2;
while step > 0 do begin
    for j := m - step downto 1 do begin
      i := j;
      while i <= m - step do begin
        if WordsSort[i] > WordsSort[i + step] then begin
          wd := WordsSort[i];
          WordsSort[i] := WordsSort[i + 1];
          WordsSort[i + 1] := wd
        end;
        i := i + step
      end
    end;
    step := step div 2
end;
// Осталось поэлементно сравнить оба массива
InOrder := true; i := 1;
while InOrder and (i <= m) do
begin InOrder := (Words[i] = WordsSort[i]); Inc(i) end;
if m = 0 then Writeln('Строка не содержит слов')
else
    if InOrder then Writeln('Cлова упорядочены')
    else Writeln('Cлова не упорядочены')
end.

Тестовое решение:
Введите строку: слово1    слово2    слово3    слово4 слово5
Cлова упорядочены

Введите строку: слово1    слово2    слово4    слово3 слово5
Cлова не упорядочены

"Современный" вариант решения на Паскале:

// PascalABC.Net 3.0, сборка 1064
var
s:string;
begin
Write('Введите строку: '); Readln(s);
var Delim:=Range(0,32).Select(x->Chr(x)).ToArray;
var Words:=s.Split(Delim).Where(x->x<>'');
var WordsSort:=Words.Sorted;
if Words.SequenceEqual(WordsSort) then Writeln('Cлова упорядочены')
else Writeln('Cлова не упорядочены')
end.

Тестовое решение совпадает с вышеприведенным.

4,6(59 оценок)

Ответ:

Аноним9111

03.12.2021

Program Project1;

var m:array [0..14] of integer; i:integer;

function IsPositive(a:integer):boolean;
begin
result:=(a>-1);
end;

procedure work;
var min, max, count:integer;
begin
count:=0;
min:=m[0];
max:=0;
for i:=0 to 14 do begin
    if IsPositive(m[i]) then begin
      inc(count);
      if m[i]>max then max:=m[i];
      if m[i]<min then min:=m[i];
    end;
end;
writeln('MAX: ', max);
writeln('MIN: ', min);
writeln('Count: ', count);
end;

begin
for i:=0 to 14 do begin
    write('n: ');
    readln(m[i]);
end;

work;

readln;
end.

4,8(74 оценок)

Это интересно:

Компьютеры-и-электроника

31.05.2022

Как сделать полный сброс на телефоне Nokia N73...

Кулинария-и-гостеприимство

23.07.2022

Как приготовить бисквитный торт: простое рецепт и советы на все случаи жизни...

Хобби-и-рукоделие

01.08.2021

Как найти изображения на компьютере: советы и рекомендации...

Хобби-и-рукоделие