Щука исполняет желания емели, которые заключаются в перемещении его на печи. вначале емеля проехал 4км на север, потом 3км на запад, потом 8км на юг, потом ещё 6км на восток, пока, наконец, он не проехал 4км на север. на каком расстоянии от исходной точки находится емеля, если считать расстояние в км?

👇

Увидеть ответ

Ответ:

01042006кристина0104

31.07.2022

если не ошибаюсь , то получается 4+3-8(пошел назад)+4 =3 км

4,5(73 оценок)

Открыть все ответы

Ответ:

NikaSempay

31.07.2022

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(30,1960,2016); a.Println;
var iFirst:=a.IndexMin;
var iLast:=iFirst;
var vMin:=a[iFirst];
for var i:=29 downto iFirst+1 do
    if a[i]=vMin then begin iLast:=i; break end;
if iLast=iFirst
then Writeln('Самый старший человек номер ',iFirst+1)
else Writeln('Первый из самых старших людей имеет номер ',
    iFirst+1,', последний из людей этого возраста - номер ',
    iLast+1)
end.

Тестовое решение
1987 1971 1974 1989 1989 1960 1987 2016 1992 1962 1971 2011 1993 1962 2008 1994 1994 1976 1988 2014 2011 1960 1971 2000 1973 2010 1964 1976 1971 1993
Первый из самых старших людей имеет номер 6, последний из людей этого возраста - номер 22

4,5(48 оценок)

Ответ:

lublubkoba

31.07.2022

Коробки
(Время: 1 сек. Память: 16 Мб Сложность: 19%)

На столе лежат коробка размера A1 × B1 × C1 и коробка размера A2 × B2 × C2. Выясните можно ли одну из этих коробок положить в другую, если разрешены повороты коробок вокруг любого ребра на угол 90 градусов.
Входные данные

Первая строка входного файла содержит три целых числа A1, B1 и C1. Вторая строка входного файла содержит три целых числа A2, B2 и C2. Все числа положительны и не превосходят 1000.
Выходные данные

Если коробки одинаковы, выведите "Boxes are equal". Если первая коробка может быть положена во вторую, выведите "The first box is smaller than the second one". Если вторая коробка может быть положена в первую, выведите "The first box is larger than the second one". Иначе, выведите "Boxes are incomparable"
program gt;
label 1;
var a,b:array[1..1000]of longint;
a1,b1,c1,a2,b2,c2,p,l,n,i,j:longint;
begin
read(a1,b1,c1,a2,b2,c2);
a[1]:=a1;a[2]:=b1;a[3]:=c1;
b[1]:=a2;b[2]:=b2;b[3]:=c2;
for i:=1 to 2 do
begin
for j:=1 to 3-i do
begin
p:=A[j];l:=A[j+1];
if A[j]>A[j+1] then begin
A[j]:=l;
A[j+1]:=p;
end;
end;
end;
for i:=1 to 2 do
begin
for j:=1 to 3-i do
begin
p:=b[j];l:=b[j+1];
if b[j]>b[j+1] then begin
b[j]:=l;
b[j+1]:=p;
end;
end;
end;
if(a[1]=b[1])and(a[2]=b[2])and(a[3]=b[3])then begin
writeln('Boxes are equal');
goto 1;
end;
if((a[1]<=b[1])and(a[2]<b[2])and(a[3]<=b[3]))or
((a[1]<b[1])and(a[2]<=b[2])and(a[3]<=b[3]))or
((a[1]<=b[1])and(a[2]<=b[2])and(a[3]<b[3]))then begin
writeln('The first box is smaller than the second one');
goto 1;
end;
if((a[1]>=b[1])and(a[2]>b[2])and(a[3]>=b[3]))or
((a[1]>=b[1])and(a[2]>=b[2])and(a[3]>b[3]))or
((a[1]>b[1])and(a[2]>=b[2])and(a[3]>=b[3]))then begin
writeln('The first box is larger than the second one');
goto 1;
end;
writeln('Boxes are incomparable');
1:
end.

4,7(56 оценок)

Это интересно:

Компьютеры-и-электроника

07.05.2022

Как запустить веб-сервер на компьютере: подробная инструкция для начинающих...

Здоровье

11.08.2021

Как преодолеть весовое плато при похудении...

Здоровье

02.11.2021

Как распознать разрушение зубной эмали...

Дом-и-сад