Const n=10;
var a:array[1..n] of integer;
i,c:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
c:=a[n];
for i:=n downto 2 do a[i]:=a[i-1];
a[1]:=c;
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
8 2 24 20 27 44 25 41 16 21
21 8 2 24 20 27 44 25 41 16
Потому что это классическая задача о трех домах и трех колодцах, она не имеет решения, один (пусть последний) путь обязательно невозможно построить не рересекая другой.
Знайка это знал, и предложил им помериться
20 лет. определяем методом подбора.. 14-14,15-5,16-,17-7,18-8,19-9,20-10
Эм а где фотка?Мы из воздуха возьмем?
var
i, k: integer;
begin
i:= 100;
k:= 0;
while i < 1000 do
begin
if (i * 2 mod 10 = 8) and (i * 3 mod 10 = 4) then write(i, ' ')
else k:= k + 1;
i:= i + 1;
end;
if k = 900 then writeln('Таких чисел не существует!');end.