<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var p:=1;
for var i:=2 to ReadInteger('n=') do p*=i;
Writeln(p)
end.
<u>Пример</u>
n= 5
120
Автомат машины Тьюринга в процессе своей работы может выполнять следующие действия:
Записывать символ внешнего алфавита в ячейку (в том числе и пустой), заменяя находившийся в ней (в том числе и пустой).
Передвигаться на одну ячейку влево или вправо.
Менять свое внутреннее состояние.
Одна команда для машины Тьюринга представляет собой конкретную комбинацию этих трех составляющих: указаний, какой символ записать в ячейку (над которой стоит автомат), куда передвинуться и в какое состояние перейти. Хотя команда может содержать и не все составляющие (например, не менять символ, не передвигаться или не менять внутреннего состояния).
Var n,m,a,b,c,d:integer;
begin
write('n = ');
readln(n);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n mod 100 div 10;
d:=n mod 10;
m:=d*1000+c*100+b*10+a;
writeln('m = ',m);
end.
Пример:
n = 1762
m = 2671
PascalABC.NET 3.2:
var
a, b: real;
begin
readln(a, b);
write(<u>(a + b)/2 + (a + b)</u>)
end.
<em>
Пример ввода:</em>
3 7
<em>Пример вывода:</em>
15