Перезагрузи ПК может поможет и еще раз загрузи игру
Самые удаленные города это города А и Б, самая короткая дорога до них это через АЕС и будет равна она 17
Program zadanie;
begin
writeln('буря мглою небо кроет');
writeln('вихри снежные крутя');
writeln('то как зверь она завоет,');
writeln('то заплачет ,как дитя');
end.
Определяет, является ли число n общим делителем всех меньших его чисел начиная с 2
begin
var (m, p) := ReadInteger2('Укажите число и показатель степени:');
if p = 0 then
Write(1)
else
begin
var z := Sign(p);
p := Abs(p);
var r: int64 := m;
for var i := 2 to p do
r *= m;
if z > 0 then
Write(r)
else
Write(1 / r);
end;
end.
==PascalABC.NET==