Может, это уравнение? 3+А=Х?
1)3-2=1(м)в сутки 2)1*10=10(дн)достигнет верхушки дерева
162 mb/3*60sec = x/360
162/3/60= 0,9
360 * 0,9 = 400
Как то так
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('Введите координаты точки:');
var r:=ReadReal('Введите радиус окружности:');
if (x*x+y*y<r*r) and (y<-x) then Writeln('Попадает')
else Writeln('Не попадает')
end.
<u>Примеры</u>
Введите координаты точки: -1.1 1.2
Введите радиус окружности: 2
Не попадает
Введите координаты точки: -1.1 0.8
Введите радиус окружности: 2
Попадает
Program gt;
var a:array[1..1000]of integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
end;
for i:=1 to 10 do
begin
if(a[i]=i+10)then write(a[i],' ');
end;
end.