Ответы
Ответ дал:
0
var x,y:integer;
begin
readln(x,y);
if (x>0) and (y>0) then writeln('I');
if (x<0) and (y>0) then writeln('II');
if (x<0) and (y<0) then writeln('III');
if (x>0) and (y<0) then writeln('IV');
end.
Надеюсь на "Лучший ответ"
begin
readln(x,y);
if (x>0) and (y>0) then writeln('I');
if (x<0) and (y>0) then writeln('II');
if (x<0) and (y<0) then writeln('III');
if (x>0) and (y<0) then writeln('IV');
end.
Надеюсь на "Лучший ответ"
Ответ дал:
0
нету еще иконки
Ответ дал:
0
ок
Ответ дал:
0
Ну че там иконка появилась :D
Ответ дал:
0
спс
Ответ дал:
0
все спс, это зачет был)))
Похожие вопросы
2 года назад
7 лет назад
10 лет назад
10 лет назад