Question

паскаль номер 5 пожалуйста

Answer 1

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.

Надеюсь на "Лучший ответ"

Answer 2

нету еще иконки

Answer 3

ок

Answer 4

Ну че там иконка появилась :D

Answer 5

спс

Answer 6

все спс, это зачет был)))