У исполнителя Умножитель две команды, которым присвоены номера:
1. умножь на 3
2. прибавь 8
Первая из них увеличивает число на экране в 3 раза, вторая увеличивает число на экране на 8. Составьте алгоритм получения из числа 4 числа 140, содержащий не более 5 команд. В ответе запишите только номера команд. Если таких алгоритмов более одного, то запишите любой из них.
2.
У исполнителя Квадратор две команды, которым присвоены номера:
1. Уменьшает число в 2 раза
2. Прибавляет к числу 3
Первая из них уменьшает число в 2 раза, вторая прибавляет к нему 3. Составьте алгоритм получения из числа 4 числа 7, содержащий 5 команд. В ответе запишите только номера команд.
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
writeln('III');
var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
writeln;
while a.Any() do
begin
write(a[0], ' ');
a.RemoveAt(0);
if not a.Any then break;
write(a.Last, ' ');
a.RemoveAt(a.Count - 1);
if not a.Any then break;
var n := 0;
if a.Count > 1 then n := a.Count div 2 - 1;
write(a[n], ' ');
a.RemoveAt(n);
end;
end.
var x, m: integer;
begin
x := 6;
m := x + 1;
end.
2.
var x, y: integer;
begin
x := 6;
y := 3;
if x>y then writeln('x>y - istinno')
else writeln('x>y - lozhno')
if x=y then writeln('x=y - istinno')
else writeln('x>y - lozhno')
if x<y then writeln('x<y - istinno')
else writeln('x>y - lozhno')
end.
3.
1.
var x, m: integer;
begin
x := 6;
if x-1>0 then m := x - 1;
end.
4.
var x, y, m: integer;
begin
x := 6;
y := 3;
if x-y>0 then m := x - y
else writeln('raznost ne imeet naturalnoe chislo')
end.
5.
var x, y, m: integer;
begin
x := 6;
y := 3;
m := x * y;
end.
6.
var x, y, m, n: integer;
begin
x := 6;
y := 3;
n := x / y;
m := x mod y;
end.