Question

Вопрос по программированию Pascal Поменять местами цифры трехзначного числа и вывести их на экран

Answer 1

Var a,b,c,d:integer;
begin
randomize;
a:=random(990)+10;
writeln(a);
b:=a div 100;
c:=a mod 10 ;
writeln('Первое цифра числа - ',b);
a:=a div 10;
d:=a mod 10;
writeln('Вторая цифра числа - ',d);
writeln('Третья цифра числа - ',c);
writeln(b,c,d);
end.

Answer 2

Конечно! Вот пример кода на языке программирования Pascal, который меняет местами цифры трехзначного числа и выводит их на экран:

pascalCopy code
program SwapDigits;

var
  number, swappedNumber, digit1, digit2, digit3: integer;

begin
  // Ввод трехзначного числа
  writeln('Введите трехзначное число:');
  readln(number);

  // Разделяем число на цифры
  digit1 := number div 100;
  digit2 := (number div 10) mod 10;
  digit3 := number mod 10;

  // Меняем местами цифры
  swappedNumber := digit3 * 100 + digit2 * 10 + digit1;

  // Выводим результат на экран
  writeln('Число после перестановки цифр:', swappedNumber);

  readln;
end.

Программа запрашивает у пользователя трехзначное число, затем разделяет его на отдельные цифры (digit1, digit2, digit3), меняет их местами и сохраняет результат в переменной swappedNumber. Наконец, программа выводит полученное число на экран.

Обратите внимание, что в данном примере предполагается, что пользователь вводит трехзначное число. В реальных программных проектах рекомендуется добавить проверку входных данных, чтобы убедиться, что число действительно трехзначное.