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) ТОК -> УКОТ -> ФТОУ
ответ: ФТОУ
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.
var
a: 1000..9999; //Четырехзначное число
a1, a2, a3, a4: 1..9;
begin
writeln('Введите четырехзначное число');
readln(a);
a1:= a mod 10; //Первая с конца цифра
a2:= (a mod 100) div 10; //Вторая с конца цифра
a3:= (a mod 1000) div 100; //Третья с конца цифра
a4:= a div 1000; //Четвертая с конца цифра
writeln('Сумма цифр данного числа: ', a1 + a2 + a3 + a4); //Сумма цифр
end.