Задать вопрос
4 декабря, 12:38

Помогите с Паскалем!

С клавиатуры вводится четырехзначное натуральное число. Поменяйте в нем местами первую цифру со второй и третью с четвертой. Затем результат надо вывести на экран. Оператор вывода в программе должен быть единственным и выглядеть так: writeln (y)

+5
Ответы (1)
  1. 4 декабря, 13:55
    0
    Var n, y:integer;

    a, b, c, d:integer;

    Begin

    readln (n) ;

    a: = n div 1000;

    b: = n div 100 - a * 10;

    c: = n div 10 - a * 100 - b * 10;

    d: = n mod 10;

    y: = b*1000 + a*100 + d*10 + c;

    writeln (y) ;

    end.

    Пример: 4295 (5290)

    Вывод: 2459 (2509)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите с Паскалем! С клавиатуры вводится четырехзначное натуральное число. Поменяйте в нем местами первую цифру со второй и третью с ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы