Решить по информатике нужно переаести крзу капусту и волка на другой берег известно что в лодку влезает - id371020320220922 от Fidashka5616 22.09.2022 09:29

Question

Информатика: Решить по информатике нужно переаести крзу капусту и волка на другой берег известно что в лодку влезает только 2 человека(тоесть ты и ктото ещё) и известно что козу нельзя оставлять с волком, а капусту с козой^

Fidashka5616 · Accepted Answer

{pascalabc}

program f0rwardirop;

var

r,x,y: real;

b: boolean;

i: integer;

s: string;

begin

s: =' -=alphaeus=- ';

for i: =1 to 22 do begin write(s[i]); sleep(200) end;

writeln; write('ok, введите r = '); readln(r);

write('теперь введите х = '); readln(x);

write('и, наконец, введите y = '); readln(y);

if x> =0 then

if (x*x+y*y < = r*r) then b: = true else b: =false

else

if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;

if b then writeln('точка (',x,',',y,') принадлежит закрашенной области')

else writeln('точка (',x,',',y,') не принадлежит закрашенной области');

end.

MOGZ ответил