Var x,y:integer;
begin
readln(x,y);
if (x<0) and (y>1) and (sqr(x)+sqr(y)>4) then writeln('A')
else if (x>0) and (y>1) and (sqr(x)+sqr(y)>4) and (y>x-2) then writeln('B')
else if (sqr(x)+sqr(y)<4) and (y>1) then writeln('C')
else if (x<-2) and (sqr(x)+sqr(y)>4) and (y>0) and (y<1) then writeln('D')
else if (sqr(x)+sqr(y)<4) and (x<0) and (y>0) and (y<1) then writeln('E')
else if (sqr(x)+sqr(y)<4) and (x>0) and (y>0) and (y<1) then writeln('F')
else if (sqr(x)+sqr(y)>4) and (y>0) and (y<1) and (x>2) and (y>x-2) then writeln('G')
else if (sqr(x)+sqr(y)>4) and (y>0) and (y<1) and (x>2) and (y<x-2) then writeln('H')
else if (sqr(x)+sqr(y)>4) and (x<0) and (y<0) and (y>x-2) then writeln('I')
else if (sqr(x)+sqr(y)<4) and (x<0) and (y<0) and (y>x-2) then writeln('J')
else if (sqr(x)+sqr(y)<4) and (x>0) and (y<0) and (y>x-2) then writeln('K')
else if (sqr(x)+sqr(y)<4) and (x>0) and (y<0) and (y<x-2) then writeln('L')
else if (sqr(x)+sqr(y)>4) and (x>0) and (y<0) and (y<x-2) then writeln('M')
else if (sqr(x)+sqr(y)<4) and (x<0) and (y<0) and (y<x-2) then writeln('N')
else if (y>1) and (y<x-2) then writeln ('O')
else writeln('Точка не лежит ни в одной из областей');
<span>end.</span>
В компьютере, например, вся информация систематизирована, поэтому можно все быстро найти. Так же в если в библиотеке систематизировать все книги по алфавиту, то можно будет быстро найти нужное произведение
Если в Паскале то вот должно работать !
BAR i,s:integer;
BEGIN
s:=0;
for i:=1 to 100 do
if i mod 2 = 0 then s:=s+i;
writeln(s);
<span>END.</span>
Фонограф! 21 ноября 1877-го года изобретён Томасом Алвой Эдисоном.
Изначально у нас есть четыре ёмкости из них :
одна 12/12 (полная) и три 0/5 ; 0/5 ; 0/3 (пустых).
Наглядно это весь процес выглядит следующим образом.
1) 12/12 ; 0/5 ; 0/5 ; 0/3 (это то что дано)
2) 7/12 ; 5/5 ; 0/5 ; 0/3
3) 2/12 ; 5/5 ; 5/5 ; 0/3
4) 2/12 ; 2/5 ; 5/5 ; 3/3
5) 0/12 ; 4/5 ; 5/5 ; 3/3
6) 3/12 ; 4/5 ; 5/5 ; 0/3
7) 3/12 ; 4/5 ; 2/5 ; 3/3
8) 6/12 ; 4/5 ; 2/5 ; 0/3
9) 6/12 ; 4/5 ; 0/5 ; 2/3
10) 1/12 ; 4/5 ; 5/5 ; 2/3
11) 1/12 ; 4/5 ; 4/5 ; 3/3
12) 4/12 ; 4/5 ; 4/5 ; 0/3