Ввод: m ^ n С/П.
П1 <-> П0 ИП1 lg [x] 1 + 1 0 x^y ИП0 * ИП1 + 1 0 * ИП0 + [x] С/П
Пример: 4 ^ 123 С/П; результат: 41234.
1)
цел a, b, c
алг
нач
ввод a,b,c
если mod(a+b,2)=0 то
вывод (a+b)/c
иначе
вывод (a+b)*c
все
кон
2)
цел a,d1,d2
алг
нач
ввод a
если (a>9) и (a<99) то
d1:=div(a,10);
d2:=mod(a,10);
вывод d1*d2
вывод' '
вывод d1+d2
вывод' '
вывод d1-d2
иначе
вывод 'ошибка'
все
кон
В общую длину пути будет входить длина пути AC = 10
Длина пути напрямую из C в F (CF) = 8.
Нам нужно проверить, если ли смысл ехать в другой нас. пункт из C, чтоб сократить общий путь.
Варианты, где расстояние из C в другой нас. пункт больше или равно CF отбрасываем. У нас остаются:
Теперь проверим, из какого из этих пунктов расстояние в F не превышает расстояние CF - 8.
Найдем общий размер пути, который нужно преодолеть с самого начала и найдем меньший
- ACBF = 10 + 6 + 1 = 17
- ACDF = 10 + 2 + 4 = 16
- ACEF = 10 + 5 + 0 = 15
Ответ:
Длина кратчайшего пути между пунктами А и F, проходящая через пункт С = 15 (ACEF).
Приведу часть программы.
n-любое число
...........................
a: array[1..n] of integer;
................................
K:=0;
for i:=1 to n do
if a[i]=1958 then inc(k); {или K:=k+1}
writeln(k);
end.