Уисполнителя утроитель две команды,которым присвоены номера: 1 - вычти 1 2 - умножь на три первая из - id130431220230202 от kolika2016 02.02.2023 02:48

Question

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

kolika2016 · Accepted Answer

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
var s:set of integer:=[];
Writeln('Вводите натуральные числа от 1 до 255, иное число завершит ввод');
repeat
    var n:=ReadInteger;
    if not (n in [1..255]) then break
    else s+=[n]
until false;
Writeln('-'*10);
foreach var k in s do
    if k.ToString.ToCharArray.Distinct.Count=1 then Print(k)
end.

Пример
Вводите натуральные числа от 1 до 255, иное число завершит ввод
24
55
68
156
222
77
8
140
500

77 8 55 222

MOGZ ответил