Question

Delphi. Дано 3-х значное число. Переставьте цифры в обратном порядке. Рекомендуемый вид экрана:Введите число 2691-я цифра 22-я цифра 63-я цифра 9 Получилось число 96210 баллов

Answer 1

Ответ:

Delphi

Можно считать, но проще простой перестановкой символов.

unit Unit3;  

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;

type

 TForm3 = class(TForm)

   Edit1: TEdit;

   Memo1: TMemo;

   Button1: TButton;

   procedure Button1Click(Sender: TObject);

 private

   procedure ReDo;

 public

 end;

var

 Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

 Memo1.Clear;

 redo;

end;

procedure TForm3.ReDo;

var

 s, s1, s2, s3 : string;  

begin

 s := edit1.Text;

 s1 := s[1];

 s2 := s[2];

 s3 := s[3];

 Memo1.Lines.Add(format('1-я цифра %s',[s1]));

 Memo1.Lines.Add(format('2-я цифра %s',[s2]));

 Memo1.Lines.Add(format('3-я цифра %s',[s3]));

 Memo1.Lines.Add(format('Получилось число %s',[s3+s2+s1]));

end;

end.

Answer 2

Для решения этой задачи в Delphi, вы можете использовать следующий код:

delphiCopy code
program ReverseDigits;

var
  number, reversedNumber: Integer;
  digit1, digit2, digit3: Integer;

begin
  Write('Введите трехзначное число: ');
  ReadLn(number);

  // Извлекаем цифры из числа
  digit1 := number mod 10;
  number := number div 10;
  digit2 := number mod 10;
  digit3 := number div 10;

  // Переставляем цифры в обратном порядке
  reversedNumber := digit1 * 100 + digit2 * 10 + digit3;

  WriteLn('Получилось число ', reversedNumber);
end.

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