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.
Информатика для меня как маленький лучик который даёт и свет и знания.
В Информатике я могу научиться пользоваться компьютером и может быть я в будущем стану програмистом. Щас великая роль информатики развития общества,веть если нет информации значит нет и разговора.Щас мир быстро меняется мы не знаем что может случится через два-три года вдруг мы успеем сделать машину времени или телевизор который может скручиваться как ковёр.Может быть то что мы придумаем не решит все наши проблемы,но решит что будем делать в дальнейшем будущем.
Информация это золото в недрах камнях,чтобы овладеть полностью информации нужно века чтоб докапать всё золото.
