Предположим, что зашла она на первом этаже, тогда судя по схеме
1 -> 2 -> 3 -> 2 -> 3 -> 4 -> 3 -> 4 -> 5 -> 4 -> 5 -> 6 -> 7
1) На каком этаже Катя вошла в лифт?
не известно, но как минимум на 6 этажей ниже максимального
2) На каком этаже Катя побывала три раза?
на 3 и 4, если предполагать, что начала с первого
3) Сколько раз Катя побывала на 3 этаже?
3 раза, если предполагать, что начала с первого
4) На каком этаже Катя вышла?
на 7, если предполагать, что начала с первого
5) Сколько у Кати этажей в доме?
минимум 7
var x: real;
function f(x: real): real;
begin
if x < 0 then f:= ln(x)/(1 - x)
else if (0 <= x) and (x < pi) then f:= 10
else if (pi <= x) then f:= cos(6 * x);
end;
begin
readln(x);
writeln(f(x));
end.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (x1,y1):=ReadReal2('Координаты 1-й точки:');
var (x2,y2):=ReadReal2('Координаты 2-й точки:');
var a:=Abs(x2-x1); // считаем, что координаты указаны верно
var d:=a*Sqrt(2);
var (xc,yc):=((x2+x1)/2,(y2+y1)/2);
Writeln('Длина стороны ',a,', диагональ ',d);
Writeln('Координаты центра пересечения диагоналей: ',xc,' ',yc)
end.
<u>Пример</u>
Координаты 1-й точки: -3 3.5
Координаты 2-й точки: 4 -3.5
Длина стороны 7, диагональ 9.89949493661167
Координаты центра пересечения диагоналей: 0.5 0
Ping 192.168.104.1
И смотри на количество полученных пакетов. Если 0- нет соединения.