{ фото огонь !!! ))) решение согласно схеме } var x, y, d: real; begin read(x,y); d := sqrt( sqr(x) + sqr(y) ); {находим длину отрезка от центра координат} if d <= 1 then writeln('Входит в Д1') else if ( x >= 2 ) and ( x <= 3 ) and ( y >= 0 ) and ( y <= 1 ) then writeln('Входит в Д2') else writeln('Не входит'); end.
Цикл while - делай, пока условие истинно т.е. пока i <= 9 программа выполняет блок внутри этого цикла в операторных скобках begin .. end; P=1, i=3: i (=3) <= 9 ? да => p:=1*(3 div 3)=1*1=1, i:=3+1=4 i (=4) <= 9 ? да => p:=1*(4 div 3)=1*1=1; i:=4+1=5 и т.д. пока верно условие i<=9 P.S. div - деление нацело, т.е. 5 div 2=2, в пятерке содержится 2 раза число два, в ответ идет 2 а вот 5 mod 2 = 1 это деление с остатком