Помогите составить программу в паскале!)
1.Определить будет ли число N четным.
2.Вывести на экран номер четверти,которой принадлежат точки с координатами х и у,если х и у неравно 0

1

Ответы и объяснения

2014-04-05T12:39:32+00:00
Могут быть мелкие ошибки
1)
var N:integer;
readln (N)
if N mod 2 = 0 then
writeln ('N- четное')
else
writeln ('N- нечетное');
end.


2)
var x,y: integer;
readln (x);
readln (y);
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.