Question

Помогите с информатикой. Напишите программу на Паскале. Дано натуральное число n (n  9999). Если число четырёхзначное, то получите и выведите перевёртыш этого числа (3528 → 8253), иначе выведите ответ "Число не четырехзначное". Даю 50 баллов.

Answer 1

Решение на фото, думаю, что так

Answer 2

Вот пример программы на Паскале, которая выполняет требуемые действия:

program ReverseNumber;

var
  n, reversed: Integer;

begin
  // Ввод числа
  Write('Введите число (n ≤ 9999): ');
  Readln(n);
  
  // Проверка на четырехзначность числа
  if (n >= 1000) and (n <= 9999) then
  begin
    // Получение перевернутого числа
    reversed := (n mod 10) * 1000 + ((n div 10) mod 10) * 100 + ((n div 100) mod 10) * 10 + n div 1000;
    
    // Вывод перевернутого числа
    Writeln('Перевернутое число:', reversed);
  end
  else
  begin
    // Вывод сообщения, если число не четырехзначное
    Writeln('Число не четырехзначное');
  end;
end.

Программа сначала запрашивает у пользователя ввод числа `n`. Затем она проверяет, является ли число четырехзначным. Если да, то она переворачивает число, используя остатки и целочисленное деление. Наконец, она выводит полученный перевернутый результат. Если число не четырехзначное, программа выводит сообщение об ошибке.