Question

СРОЧНО!!! СОСТАВЬТЕ КОМАНДУ ДЛЯ ПАСКАЛЯ!!! В пятизначном числе поменяйте местами цифры единиц и сотен, тысяч и десятков. ​

Answer 1

var N,dt,t,s,d,e:integer;

begin

 writeln('Введите число');

 readln(N);

 dt:= N div 10000;

 t:= N div 1000 mod 10;

 s:= N div 100 mod 10;

 d:= N div 10 mod 10 ;

 e:= N mod 10;

 N:= dt*10000+d*1000+e*100+t*10+s;

 print(N);

end.

Answer 2

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

pascalCopy code
program SwapDigits;

var
  number, swappedNumber, temp: Integer;
  
begin
  // Введите пятизначное число
  writeln('Введите пятизначное число:');
  readln(number);
  
  // Проверка, что число действительно пятизначное
  if (number < 10000) or (number > 99999) then
  begin
    writeln('Пожалуйста, введите пятизначное число.');
    exit;
  end;
  
  // Меняем местами цифры единиц и сотен, тысяч и десятков
  temp := (number mod 10) * 10000 + ((number div 10) mod 10) * 1000 + ((number div 100) mod 10) * 100 + ((number div 1000) mod 10) * 10 + ((number div 10000) mod 10);
  
  // Выводим результат
  writeln('Число после замены цифр:', temp);
end.

Программа сначала проверяет, что введенное число действительно пятизначное, а затем меняет местами цифры и выводит результат.