//PascalABC.NET
begin
for var i := 10 to 99 do
for var j := 10 to 99 do
if (i div 10 = j mod 10) and (i mod 10 = j div 10) then
writeln(i, ' ', j);
end.
Var
m, n: integer;
begin
readln(m, n);
if (m mod n = 0) or (n mod m = 0) then
writeln(1)
else
begin
randomize;
writeln(random(50));
end;
<span>end.</span>
Помогите: Составьте слова из букв к,е,н,г,ш,а,п,р,о,м,и,т
irichka7575
Шар,шаг,ритм,рог,ринг,тигр,рот,ром,ген,мера,кино,мир,пот,море,ком,кит,тик,ток,шпат,морг,тир
Потому что это классическая задача о трех домах и трех колодцах, она не имеет решения, один (пусть последний) путь обязательно невозможно построить не рересекая другой.
Знайка это знал, и предложил им помериться