Написать программу, которая находит эту постоянную и количество шагов для ее получения из заданного четырехзначного числа.

178

468

Посмотреть ответы 2

Ответы на вопрос:

katyastrilchuk

Другие предметы

4,4(68 оценок)

var
  n, n1, c : integer;
function sled(n:integer): integer;
  var a : array [1..4] of integer;
      i, j, x : integer;
begin
  for i:=1 to 4 do
  begin
    a[i]:=n mod 10;
    n:=n div 10
  end;
  for i:=1 to 3 do
    for j:=1 to 4-i do
      if a[j]>a[j+1] then begin x:=a[j]; a[j]:=a[j+1]; a[j+1]:=x end;
  sled:=(a[4]-a[1])*999+(a[3]-a[2])*90
end;
begin
  assign(input,'input.txt'); reset(input);
  assign(output,'output.txt'); rewrite(output);
  read(n);
  c:=0; n1:=sled(n);
  while n<>n1 do
  begin
    c:=c+1;
    n:=n1;
    n1:=sled(n)
  end;
  writeln(n);
  write(c)
end.

Trdfgg

Другие предметы

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

Там где тень, растёт

Объяснение:

возможно)))

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Другие предметы

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.