Предмет:
ИнформатикаАвтор:
chip88var x,y,m:integer;
BEGIN
readln(x,y);
if (x=y) then m:=0;
if (x>y) then m:=-1;
if (x<y) then m:=1;
writeln(m);
end.
Автор:
mohammedphfiДобавить свой ответ
Предмет:
Русский языкАвтор:
diegomzc9Ответов:
Смотреть
Предмет:
Другие предметыАвтор:
checkers5057Ответов:
Смотреть
Предмет:
МатематикаАвтор:
celloОтветов:
Смотреть