В стране Цифромании есть 7 городов с названиями 1, 2, 3, 4, 5, 6, 7.
Руководство страны сообщило, что организует железнодорожное сообщение между городами в том и только в том случае, если двузначное число, составленное из цифр - названий этих городов, делится на 3. Постройте граф, соответствующий проекту железнодорожного сообщения между городами Цифромании.
Если из цифр 1 и 9 мы не можем составить двухзначное число, которое делится на 3, то по авиалиннии мы добраться не сможем, насколько я знаю 91 и 19 на 3 не делится, но если мы посмотрим внимательно на вопрос, то там не указано что нужно добираться именно по авиалинии "Можно ли добраться из города 1 в город 9", следовательно мы можем добраться из города 1 в город 9 использую другой транспорт.
{конструкция else для того если будут введены отрицательные x y} var x,y:real;begin readln(x,y); if (x*x*x*x*x+y)>0 then writeln(exp(ln(x*x*x*x*x+y)*(1/3))*PI/(1+(exp(ln(2)*y)/x))) else writeln(-exp(ln(abs(x*x*x*x*x+y))*(1/3))*PI/(1+(exp(ln(2)*y)/x))); <span>end.</span>
Var pass,s:string; k:integer; begin pass:='12345'; k:=0; repeat writeln('Введите пароль:'); readln(s); k:=k+1; until (s=pass)or(k=3); if s=pass then writeln('Можно приступать к работе') else writeln('Вызываю охрану'); end.
Пример: Введите пароль: 1 Введите пароль: 12345 Можно приступать к работе