• Задача 2. Дано четырехзначное число. Найти число, полученное перестановкой второй и третьей цифры заданного числа. (Например, 4567 ---> 4657)

Ответы 4

  • Все чудесно, только функция IntToStr в традиционном Паскале отсутствует - она из Delphi перекочевала в Pascal.ABC
  • да? жаль) доброе утро)) буду косяк исправлять
    • Автор:

      belch8li6
    • 6 лет назад
    • 0
  • "традиционный вариант" неожиданный, если честно. спасибо.
    • Автор:

      chayabanz
    • 6 лет назад
    • 0
  • var  n: integer;   t, t1: string[4];begin  writeln('введите число --> ');  read(n);  Str(n,t);  t1 := t[1] + t[3] + t[2] + t[4];  writeln('Ответ ', t, ' --> ', t1)end.
    • Автор:

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

Войти через Google

или

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

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

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