Исполнитель калькулятор имеет только две команды, которым присвоены номера: 1. вычти 3 2.умножь на 2 - id271344920230409 от Ochoba007 09.04.2023 06:43

Question

Информатика: Исполнитель калькулятор имеет только две команды, которым присвоены номера: 1. вычти 3 2.умножь на 2 выполняя команду номер1, калькулятор вычитает из числа на экране 3, а выполняя команду номер 2, умножает число на экране на 2. напишите программу, содержащую не более 5 команд, которая из числа 5 получает число 25. укажите лишь номера команд. например, программа 22221 – это программа: умножь на 2 умножь на 2 умножь на 2 умножь на 2 вычти 3, которая преобразует число 1 в число 13.

Ochoba007 · Accepted Answer

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

function ДробьНесократима(Чис,Знам:integer):boolean;
begin
while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
Result:=Чис=1
end;

begin
for var Знаменатель:=2 to 7 do
    for var Числитель:=1 to Знаменатель-1 do
      if ДробьНесократима(Числитель,Знаменатель) then
        Write(Числитель,'/',Знаменатель,' ');
Writeln
end.

Результат
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7

MOGZ ответил