1, 5 кбайт2048 байт2 мбайр81920 бит1, 5 мбайтжалғасыбайткбайткбайткбайтбайт​

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.

1) Исполнитель - абстракция выполнить присваиваемый алгоритм.

2) Словесный, псевдокод, графический, программный.

3)

def Evklid(m, n):

while m !=  n:

if m > n:

m -= n

else:

n -= m

return m

Находим так:

1. Передаются два числа, например 2750 и 500

2. Пока 2750 не равняется 500 (цикл):

Если 2750 > 500: 2750 - 500 = 2250

   В другом случае: 500 - 2750 (но это неверно, 500 не > 2750)

3. Итак идёт, пока 2750 не станет 250.

4. Затем идёт условие, что 500 > 250 (бывший 2750), значит 500 - 250 = 250

5. 250 = 250, следовательно ответ 250

4) **+*+

5) ТОК -> УКОТ -> ФТОУ

ответ: ФТОУ