Решить можно обратным ходом т.е. провести все вычисления в обратном порядке:
Предположим что число 62 мы таки получили,тогда пред последним шагом было либо умножение, либо перестановка цифр; рассмотрим два случая:
1)Если перестановка, то:
перед ней было число 26
если его тоже получили путем перестановки получается замкнутый круг, следовательно оно получило умножением из 13-нечетное 31(перестановка) тоже нечет - противоречие.
2)Если 62 получили умножением то:
Раньше было число 31-нечетное и если пере ставить цифры то 13-тоже нечетное, следовательно случай тоже невозможен.
Ответ: число 62 из единицы получить нельзя
60+70=130 (км/ч) скорость удаления130*3=390 (км)Ответ: будет 390 (км)
// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
begin
var n:=ReadInteger('Число элементов массива');
var a:=ArrRandom(n,-60,140); a.Println(', ');
WritelnFormat('max={0}, min={1}',a.Max,a.Min)
end.
<u><em>Тестовое решение:</em></u>
Число элементов массива 10
-26, 134, 124, 103, 25, 31, 41, -31, 57, 46
max=134, min=-31
Занимаемый объём на флэш - диске: 32 Кбайт.
Program n1;
const n=10;
var a: array[1..n] of integer;
i,num,kt: integer;
begin
randomize;
kt:=0;
num:=0;
for i:=1 to n do
begin
a[i]:=random(25)-12;
write(a[i],' ');
end;
for i:=1 to n do if a[i] mod 5=0 then begin
num:=i;
kt:=kt+1;
if kt=2 then break;
end;
writeln;
write(num);
end.