Var i,j,n,m:integer; a:array[1..100] of integer; begin Read(n); for i:=1 to n do for j:=1 to n do begin if cos(sqr(i)+n)>0 then m:=m+1; End; write(m); <span>End.</span>
Задача: дана точка с координатами XY, нужно определить, принадлежит ли она указанной области Решение:
var x, y: real; begin readln(x, y); if not ((x >= 0) and (y >= 0) and (y >= -2 * x + 4) and (y <= -x + 6)) then write('не '); writeln('принадлежит'); end.