Всё правильно кроме видит
алг
нач
нц пока слева свободно
влево
кц
нц пока снизу свободно
вниз
кц
нц пока справа свободно
нц пока (сверху свободно) и (справа свободно)
вправо
вверх
закрасить
кц
нц пока (снизу свободно) и (справа свободно)
вправо
вниз
закрасить
кц
кон
var
i: integer;
begin
for i:= 35 to 87 do
begin
if i mod 7 = 1 then writeln(i, ' - остаток 1');
if i mod 7 = 2 then writeln(i, ' - остаток 2');
if i mod 7 = 5 then writeln(i, ' - остаток 5');
end;
end.
Для пары целых ненулевых чисел (a,b) существует соотношение
НОК(a,b)*НОД(a,b)=a*b
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
function gcd(a,b:integer):integer;
// НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
function lcm(a,b:integer):=(a*b) div gcd(a,b); //НОК
begin
var a:=36;
var b:=54;
var c:=18;
var d:=15;
Writeln('НОК(',a,',',b,',',c,',',d,')=',
lcm(lcm(lcm(a,b),c),d))
end.
<u><em>Тестовое решение:</em></u>
НОК(36,54,18,15)=540
Первая ЖИТЬ. т.к. ноль может идти только в паре с 1,2 или 3