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

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

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

+3
Ответы (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)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите с Паскалем! С клавиатуры вводится четырехзначное натуральное число. Поменяйте в нем местами первую цифру со второй и третью с ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
С клавиатуры вводится четырёхзначное натуральное число. Поменяйте в нём местами первую цифру со второй и третью с четвёр- той. Затем результат надо вывести на экран. Оператор вывода в про- грамме должен быть единственным и выглядеть так: writeln (y).
Ответы (1)
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Имеется условный оператор:if D10 then writeln ('ура!') else writeln ('плохо ...') ; Какими операторами его можно заменить? Выберите несколько из 4 вариантов ответа: 1) if D=10 then writeln ('ура!') else writeln ('плохо ...
Ответы (1)
Дано три цифры вывести все возможные трехзначные числа пишет ожидался оператор begin program: adf; begin var a, b, c : = in tege; begin writeln ('write') ; read (a, b, c) ; writeln (a, b) ; writeln (b, a) ; writeln (a, c) ; writeln (c, a) ;
Ответы (1)
Помогите решить 3. С клавиатуры вводится четырехзначное число. Получить число, равное произведению его цифр. 4. С клавиатуры вводится натуральное число п. Узнайте в нем количество цифр. 5. С клавиатуры вводится натуральное число п.
Ответы (1)