Предмет: Информатика,
автор: Малая33
Составить приложение на языке Pascal.вводятся координаты точек х,у. определить в какую четверть она попадает
Ответы
Автор ответа:
0
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');
end.
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');
end.
Интересные вопросы
Предмет: Литература,
автор: lisboa20170
Предмет: Физкультура и спорт,
автор: Аноним
Предмет: Литература,
автор: polina66420
Предмет: География,
автор: Ёжик111