Уисполнителя вычислитель две команды, которым присвоены номера: 1.умножь на 2, 2. прибавь 3 первая из - id889380620200427 от 79954236 27.04.2020 01:07

Question

Информатика: Уисполнителя вычислитель две команды, которым присвоены номера: 1.умножь на 2, 2. прибавь 3 первая из них увеличивает число на экране в 2 раза, вторая увеличивает его на 3. составьте алгоритм получения из числа 1 числа 44, содержащий не более 5 команд. в ответе запишите только номера команд. (например, 22122-это алгоритм) прибавь 3 прибавь 3 умножь на 2 прибавь 3 прибавь 3 который преобразует число 1 в 20) если таких алгоритмов более одного, то запишите любой из них. ( )

79954236 · Accepted Answer

//прога на Pascal`е
{не работает на PascalABC.Net, т.к. оный использует 2-байтную кодировку Unicode, а не 1-байтную кодировку ASCII, как более ранние версии Pascal`ей}
const
n = 32*2;
var
ch: array [1..n] of byte;
i, num: byte;
begin
num:=192;
for i:=1 to n do
begin
ch[i]:=num;
inc (num);
end;

writeln ('Символ | Код ASCII');
writeln ('');
for i:=1 to n do writeln (' ', chr(ch[i]), ' | ', ch[i]);end.

{версия для PascalABC.Net}
//прога на Pascal`е
const
n = 32*2;
var
ch: array [1..n] of byte;
i, num: byte;
begin
num:=192;
for i:=1 to n do begin
ch[i]:=num;
inc (num);
end;

writeln ('Символ | Код ASCII');
writeln ('');
for i:=1 to n do writeln (' ', chr(ch[i]+848), ' | ', ch[i]);

end.

MOGZ ответил