Question

ОЧЕНЬ СРОЧНО ИНФОРМАТИКА ДАЮ 50Б
Преобразовать алгоритм в программу на языке Паскаль
алг задача
нач цел х,y
ввод х,у
если (х>0) то (у>0)
то вывод " точка принадлежит 1-ой четверти КП"
иначе вывод "точка не принадлежит 1-ой четверти КП"
все
кон

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

program Задача;
begin
  var x,y:integer;
  Read(x,y);
  if (x>0) and (y>0) then
    Writeln('Точка принадлежит 1-ой четверти КП')
  else
    Writeln('Точка не принадлежит 1-ой четверти КП')
end.