М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
kakaha7
kakaha7
21.05.2023 08:07 •  Информатика

Дано натуральное число n. переставить местами его цифры так, чтобы получилось максимальное число, записанное теми же цифрами. (программирование в pascal abc)

👇
Ответ:
students17
students17
21.05.2023
Var s: string; a: char; n,l: integer; i,j: byte;
begin
  write ('Введите число:    ');
  readln (n);
  Str(n,s);
  l:=length(s);
  
  for i:=1 to l-1 do begin
    for j:=i+1 to l do begin
         if s[i]<s[j]
            then begin a:=s[i]; s[i]:=s[j]; s[j]:=a end      
    end
  end;
  
  writeln;
  writeln (S)
end.



Введите число:    273707

777320
4,6(63 оценок)
Открыть все ответы
Ответ:
pra02
pra02
21.05.2023

using System;

class Program

   {

       static void Main(string[] args)

       {

           Console.WriteLine("Введите координату x точки");

           double x = int.Parse(Console.ReadLine());

           Console.WriteLine("Введите координату y точки");

           double y = int.Parse(Console.ReadLine());

           Console.WriteLine("Введите радиус");

           double r = int.Parse(Console.ReadLine());

 

           double d = Math.Sqrt(Math.Pow(-x, 2) + Math.Pow(-y, 2));

           Console.WriteLine(d);

           if (d < r){

               Console.WriteLine("Да");}

           else if (d == r){

               Console.WriteLine("На границе");}

           else{

               Console.WriteLine("Нет");}

           Console.ReadKey();

       }

   }

4,4(45 оценок)
Ответ:
рустам222
рустам222
21.05.2023

using System;

class Program

   {

       static void Main(string[] args)

       {

           Console.WriteLine("Введите координату x точки");

           double x = int.Parse(Console.ReadLine());

           Console.WriteLine("Введите координату y точки");

           double y = int.Parse(Console.ReadLine());

           Console.WriteLine("Введите радиус");

           double r = int.Parse(Console.ReadLine());

 

           double d = Math.Sqrt(Math.Pow(-x, 2) + Math.Pow(-y, 2));

           Console.WriteLine(d);

           if (d < r){

               Console.WriteLine("Да");}

           else if (d == r){

               Console.WriteLine("На границе");}

           else{

               Console.WriteLine("Нет");}

           Console.ReadKey();

       }

   }

4,7(26 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ