давно
Старший Модератор
31795
6196
17.11.2019, 02:06
общий
это ответ
Здравствуйте, JonMoxley!
Смотрите код:
[code lang=pascal]var
x,y:real;
function Quarter(a,b:real):integer;
begin
Quarter:=1*ord(a>0)*ord(b>0)+
2*ord(a<0)*ord(b>0)+
3*ord(a<0)*ord(b<0)+
4*ord(a>0)*ord(b<0)
end;
begin
repeat write('x:=');readln(x)until x<>0;
repeat write('y:=');readln(y)until y<>0;
write('result:=',Quarter(x,y));
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.