Uses crt;
var x,y:real;
begin
read(x,y);
if (x>0) and (y>0) then
writeln('I')
else if (x<0) and (y>0) then
writeln('II')
else if (x<0) and (y<0) then
writeln('III')
else
writeln('IV');
<span>end.</span>
Проверка:
250/8=31, остаток 2
31/8=3, остаток 7
Выписываем результат: 3 7 2 или 372(8)
Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.
А = 25 - количество людей всего
а1 - количество людей по информатике
а2 = 16 - количество людей по математике
а3 = 10 - по физике
а5 = 7 - все три олимпиады
а4 = 12 - в двух любых
Формула свойств: А = -(а1+а2+а3) + а4 - а5
25 = -(26 + а1) + 12 - 7
25 = -26 - а1 +5
25 = -21 - а1
а1 = 4 - принимали участие в олимпиаде по информатике