Question

Написать программу, которая делает замену цифр 6-тизначного числа по схеме (abcdef в fedcba) и выводит новое число на экран (Паскаль)

Answer 1

User crt, perev;
var n: longint;
begin
clrscr;
repeat
write('введите число') ;
readln(n);
until(n>0) and (n <=999999);
writeln(summ(n);end.

Answer 2

Я могу помочь вам написать программу на языке Паскаль, которая делает замену цифр шестизначного числа по схеме (abcdef в fedcba) и выводит новое число на экран. Вот один из возможных вариантов решения этой задачи:

program ReverseDigits;
var
  n, r: integer;
begin
  writeln('Введите шестизначное число:');
  readln(n);
  if (n >= 100000) and (n <= 999999) then
  begin
    r := 0; // переменная для хранения результата
    while n > 0 do
    begin
      r := r * 10 + n mod 10; // добавляем последнюю цифру n к r
      n := n div 10; // отбрасываем последнюю цифру n
    end;
    writeln('Число с обратным порядком цифр:', r);
  end
  else
    writeln('Неверный ввод. Число должно быть шестизначным.');
end.

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