---

Тут ви можете виконати завдання чи задати питання по змiсту цього уроку.

1 (1) 2014-08-20 15:10:11 Задача CORSIAR ---------------------- {Corsiar} const max=20; var k,n,i,j:longint; a:array[1..max,1..2] of double; s:double; begin ReadLn(k); for i:=1 to k do begin Read(n); for j:=1 to n do Read(a[j,1],a[j,2]); s:=(a[1,1]-a[n,1])*(a[1,2]+a[n,2]); for j:=1 to n-1 do begin s:=s+(a[j+1,1]-a[j,1])*(a[j+1,2]+a[j,2]); end; ReadLn; if s>0 then Write('1') else Write('0'); end; WriteLn; end.

Повернутися до уроку

Повернутися до перелiку уроків курсу