Исполнитель вычислитель может хранить в своей памяти только одно число и выполнять только две команды, которым присвоены номера: 1. умножь число на 3 2. увеличь число на 1. программа для вычислителя записывается какпоследовательность из 1 и 2. сначала в памяти вычислителя всегда записано число 0. например, программа 221 запишет в память вычислителя число 6 (т.к. (0+1+1)*3=6 ниже некоторые программы для исполнителя вычислитель. расположите их впорядке убывания результата (т.е. того числа, которое будет записано в памяти вычислителя после выполнения программы): 1) 21112 2) 2121 3) 2221 4) 1111112 5) 121212 6) 2111
Ответы
Не совсем требования к программе понятны. написал на паскальавс.нет с использованием функции var x,y,z: integer; function ex(x: integer): integer; begin if x> 0 then result: =2*x else result: =x*x; end; begin write('введите x, y, z: '); readln(x,y,z); x: =ex(x); y: =ex(y); z: =ex(z); writeln('новые значения: ',x,'; ',y,'; ',z); end.вариант без использования функцииvar x,y,z: integer; begin write('введите x, y, z: '); readln(x,y,z); if x> 0 then x: =2*x else x: =x*x; if y> 0 then y: =2*y else y: =y*y; if z> 0 then z: =2*z else z: =z*z; writeln('новые значения: ',x,'; ',y,'; ',z); end.
1) a: =-5; b: =-2; while (a+b)< a*b do begin a: =2*a; b: =b+1; end; -5 -2 -7< (-5)*(-2) a=2*-5=-10 b: =-1; k=1; -11< 10 a=-20 b=0 k=2; -20< 0 a=-40 b=1 k=3; -39< -40 нет ответ k=3 а числа a=-40 b=1 a=25; b=1; while(a-b)< (a/b) do begin a: =a+10; b: =-3*b; end; a=25 b=1 k=0; 25-1< 25 a=35 b=-3 k=1 28< 35/-3 нет k=1 a=35 b=-3
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Информатика, нужно, , ! вопрос жизни и смерти,
Автор: Aleksei1463
Повидомлення про векторну та растрову графику (небольшое)
Автор: Александровна1742
Решить cif 18 на языке паскаль (pascalabc.net),
Автор: koxhulya61
1) 28
2) 6
3) 5
4) 1
5) 7
6) 27
итого:
1, 6, 5, 2, 3, 4.