Delphi. Дано 3-х значное число. Переставьте цифры в обратном порядке.
Рекомендуемый вид экрана:
Введите число 269
1-я цифра 2
2-я цифра 6
3-я цифра 9
Получилось число 962
10 баллов
Ответы
Ответ:
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.
![](https://st.uroker.com/files/c12/c12c8af41ee74ad64a2b6b464a452cad.png)