• Дано вещественное число с двумя цифрами в целой части и одной цифрой в дробной части. Получить вещественное число, запись которого являлась бы зеркальным отображением исходного числа (например, 36.2 и 2.63).

Ответы 10

  • Фу ... писать в PascalABC.NET, используя синтаксис Турбо Паскаль (((
    • Автор:

      teenydxap
    • 6 лет назад
    • 0
  • Ну, я не знаю что там у вопрошающего, поэтому стараюсь попроще ) Да я собственно, не так много знаю нового. Разве что убрал бы область определения переменных наверное.
    • Автор:

      ellievm7n
    • 6 лет назад
    • 0
  • И я не знаю, поэтому если ничего не сказано, пишу покороче))
  • Почитайте в справке по .NET про интерполированные строки
    • Автор:

      eddie9ux0
    • 6 лет назад
    • 0
  • Хорошо, я почитаю. Я в общем то по справке сам и разбираюсь, да по примерам решений других людей.
  • Примеров полно в справочной системе и на официальном сайте 7 презентаций...
  • Да, я немного смотрел презентации. Полностью со всем ознакомится у меня думаю вряд ли получится. Возможности просто огромные заложены. Это надо постоянно работать с Паскалем. Я же больше для себя разбираюсь, когда есть время. Если получится здесь помочь кому то решением- и то хорошо )
    • Автор:

      mona26
    • 6 лет назад
    • 0
  • Это каждый должен для себя сам решать - какие языки изучать, в каком объеме и для чего.
  • var

     x, y, a, b, c: real;

     t: integer;

    begin

     read(x);

     t := Round(10 * x);

     a := t div 100;

     b := (t div 10) mod 10;

     c := t mod 10;

     y := c + b / 10 + a / 100;

     Println(y);

    end.

    Или можно сократить число используемых переменных:

    var

     x: real;

     t: integer;

    begin

     read(x);

     t := Round(10 * x);

     Println(t mod 10 + (t div 10 mod 10) / 10 + t div 100 / 100);

    end.

    answer img
    • Автор:

      larsen
    • 6 лет назад
    • 0
  • PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018Внимание! Если программа не работает, обновите версию!

    begin

     $'{ReadReal:00.0}'.Inverse.Println

    end.

    16.99.61
    answer img
    • Автор:

      hawkf1mv
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years