В тетради написать программу на школьном алгоритмическом языке: Робот находится в центре неизвестного - id1716240120210201 от ПоЛИнА10571 01.02.2021 02:00

Question

Информатика: В тетради написать программу на школьном алгоритмическом языке: Робот находится в центре неизвестного по размерам поля. Задание - закрасить клетки по периметру поля, за исключением клеток в углах поля. Конечное положение Робота произвольное.​

ПоЛИнА10571 · Accepted Answer

//PascalABC.NET //Версия 3.3, сборка 1634 (14.02.2018) begin   var (cost, t, k) := (Arr(15, 70, 125, 230, 440), Arr(1, 5, 10, 20, 60), new integer[5]);   var n := ReadInteger( n- );   for var i := 4 downto 0 do   begin     k[i] := n div t[i];n := n mod t[i];   end;    if k[0] * cost[0] = cost[1] then begin k[0] := 0;inc(k[1]); end;   if k[0] * cost[0] + k[1] * cost[1] = cost[2] then    begin     k[0] := 0;k[1] := 0;inc(k[2]);    end;   if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] = cost[3]...

MOGZ ответил