Всписке класса, состоящем из n строк и m столбцов, отмечаются выполненные лабораторные работы. работа выполнена, если за нее проставлена оценка. за невыполненную работу
ставится нуль. школьник не допускается к следующей работе, пока он не выполнил предыдущую. написать программу, определяющую в процентах, сколько учеников класса наиболее близки
к завершению всех m работ
сделать
var
x,y : integer;
begin
readln (x,y);
if (x=0) or (y=0)
then
begin
if x = 0 then
writeln ('Точка лежит на оси y');
if y = 0 then
writeln ('Точка лежит на оси x')'
end
else
begin
if (x>0) and (y>0) then
writeln ('Точка находится в первой четверти');
if (x<0) and (y>0) then
writeln ('Точка находится во второй четверти');
if (x<0) and (y<0) then
writeln ('Точка находится в третей четверти');
if (x>0) and (y<0) then
writeln ('Точка находится в четвертой четверти');
end;
end.