Дамп всех задач

2017-05-22 13:29:43 +03:00
1 parent b970626fef
commit 93746b05d7
@@ -0,0 +1,21 @@
+var
+  a: array[1..30] of integer;
+  i, k, ki, kmax, kimax: integer;
+
+begin
+  for i := 1 to 30 do begin a[i] := random(10);write(a[i], ' '); end;
+  writeln();
+  kmax := 0;
+  kimax := 0;
+  for i := 1 to 29 do 
+  begin
+    ki := i;
+    k := a[i] + a[i + 1];
+    if k > kmax then 
+    begin
+      kmax:=k;
+      kimax:=ki;
+    end;
+  end;
+  writeln(kimax, ':= ', kmax);
+end.
@@ -0,0 +1,18 @@
+const
+  N = 30;
+
+var
+  a: array [1..N] of integer; 
+  i, j, min: integer;
+
+begin
+  Randomize();
+  for i := 1 to N do begin a[i] := Random(0, 100);write(a[i], ' '); end;
+  writeln();
+  min:=100;
+  for i := 1 to N do 
+  begin
+    if (a[i] > 20) and (min > a[i]) then min := a[i];
+  end;
+  writeln(min);
+end.
@@ -0,0 +1,23 @@
+const
+  N = 4;
+
+var
+  a: array [1..N, 1..N] of integer; 
+  i, j: integer;
+  d: real;
+
+begin
+  Randomize();
+  for i := 1 to N do begin for j := 1 to N do begin a[i][j] := Random(5);write(a[i][j], ' '); end;writeln(); end;
+  writeln();
+  d:=0;
+  for i := 1 to N do 
+  begin
+    for j := 1 to N do 
+    begin
+      d:=d+a[i][j];
+    end;
+  end;
+  d:=d/N;
+  writeln(d);
+end.
@@ -0,0 +1,19 @@
+const
+  N = 30;
+
+var
+  a: array [1..N] of integer; 
+  i, j: integer; 
+  s: real;
+
+begin
+  Randomize();
+  for i := 1 to N do begin a[i] := Random(0, 100);write(a[i], ' '); end;
+  writeln();
+  j := 0;
+  for i := 1 to N do begin j := j + a[i]; end;
+  s := j / N;
+  j := 0;
+  for i := 1 to N do begin if a[i] > s then begin j := j + 1 end; end;
+  writeln('ñðåäíåå: ', s, ' êîë-âî: ', j);
+end.
@@ -0,0 +1,17 @@
+const
+  N = 30;
+
+var
+  a: array [1..N] of integer; 
+  i, j, x: integer;
+
+begin
+  Randomize();
+  for i := 1 to N do begin a[i] := Random(125);write(a[i], ' '); end;
+  x:=Random(5);
+  writeln('x:= ',x);
+  j:=0;
+  for i:=N downto 1 do begin if a[i]=x then j:=i; end;
+  if j = 0 then writeln('none') else
+  writeln(' ',j);
+end.
@@ -0,0 +1,23 @@
+const
+  N = 30;
+
+var
+  a: array [1..N] of integer; 
+  i, k, max, max2: integer;
+
+begin
+  Randomize();
+  for i := 1 to N do begin a[i] := Random(9);write(a[i], ' '); end;
+  writeln();
+  k := 0;
+  max := 0;
+  max2 := 0;
+  for i := 1 to N do 
+  begin
+    if a[i] > max then begin
+      max2 := max;
+      max := a[i];
+    end;
+  end;
+  writeln(max2);
+end.
@@ -0,0 +1,18 @@
+var
+  a: array[1..30] of integer;
+  i, k, ki, kmax, kimax: integer;
+
+begin
+  for i := 1 to 30 do begin a[i] := random(10);write(a[i], ' '); end;
+  writeln();
+  kmax := 0;
+  kimax := 0;
+  for i := 1 to 29 do 
+  begin
+    if a[i] = a[i + 1] then     
+      k := k + 1 
+    else k := 1;              
+    if k > kmax then kmax := k;
+  end;
+  writeln(kimax, ':= ', kmax);
+end.
@@ -0,0 +1,22 @@
+var
+  a: array[1..10, 1..20] of integer;
+  i, j, sum, ssum, ssumk: integer;
+
+begin
+  for i := 1 to 10 do begin write(i, ': ');for j := 1 to 20 do begin a[i, j] := random(10);write(a[i, j], ' '); end;writeln; end;
+  writeln();
+  ssum := 9999;
+  for i := 1 to 10 do 
+  begin
+    sum := 0;
+    for j := 1 to 20 do 
+    begin
+      sum := sum + a[i, j];
+    end;
+    if sum < ssum then begin
+      ssum := sum;
+      ssumk := i;
+    end;
+  end;
+  writeln(ssumk, ': ', ssum);
+end.
@@ -0,0 +1,22 @@
+const
+  N = 30;
+
+var
+  A: array[1..N] of integer; 
+  i, x, y: integer; 
+  s: real;
+
+begin
+  Randomize();
+  for i := 1 to N do begin A[i] := Random(160, 200);write(A[i], ' '); end;
+  x:=0;
+  y:=0;
+  for i := 1 to N do 
+  begin
+    if A[i]>180 then begin
+      x:=x+1;
+      y:=y+A[i];
+    end;
+  end;
+  write('x= ', x, ' y= ', y, ' cp= ', y/x);
+end.
@@ -0,0 +1,22 @@
+const
+  N = 31;
+
+var
+  A: array[1..N] of integer; 
+  i, x, y: integer; 
+  s: real;
+
+begin
+  Randomize();
+  for i := 1 to N do begin A[i] := Random(-20, 20);write(A[i], ' '); end;
+  x := 0;
+  y := 0;
+  for i := 1 to N do 
+  begin
+    if A[i] > 0 then begin
+      x := x + 1;
+      y := y + A[i];
+    end;
+  end;
+  write('x= ', x, ' y= ', y, ' cp= ', y / x);
+end.
@@ -0,0 +1,26 @@
+var
+n,i:integer;
+r,x1,x2,x3,y1,y2,y3,per:real;
+f:Text;
+
+begin
+Assign(f, 'input.txt');
+Reset(f);
+Read(f, n);
+read(f, r);
+Read(f, x1, y1);
+x3:=x1;
+y3:=y1;
+per:=0;
+for i:=0 to n-2 do begin
+  Read(f, x2, y2);
+  per:=per + Sqrt(Sqr(x2-x1)+Sqr(y2-y1));
+  x1:=x2; y1:=y2;
+end;
+per:=per+Sqrt(Sqr(x1-x3)+Sqr(y1-y3)+Sqr(x2-x1)+Sqr(y2-y1));
+per:=per+((2*Pi*r)/4)*n;
+Close(f);
+Rewrite(f, 'output.txt');
+write(f, per:0:2);
+Close(f);
+end.
@@ -0,0 +1,5 @@
+4 1 
+0.0 0.0 
+2.0 0.0 
+2.0 2.0 
+0.0 2.0 
@@ -0,0 +1 @@
+14.28
@@ -0,0 +1,9 @@
+var 
+x,y:real;
+begin
+Read(x,y);
+if (y <=2-x*x) and ((y>=x) or (y>=0)) then
+ print('ïðèíàäëåæèò')
+else
+ Print('íåò')
+end.
@@ -0,0 +1,9 @@
+var 
+x,y:real;
+begin
+Read(x,y);
+if (y<=1) and (y>=0) and (x<=Pi/2) and (y>=Sin(x)) then
+ print('ïðèíàäëåæèò')
+else
+ Print('íåò')
+end.
@@ -0,0 +1,9 @@
+var 
+x,y:real;
+begin
+Read(x,y);
+if (y<=0.5) and (y>=0) and (y<=Sin(x)) and (x>=0) and (x<=Pi) then
+ print('ïðèíàäëåæèò')
+else
+ Print('íåò')
+end.
@@ -0,0 +1,9 @@
+var 
+x,y:real;
+begin
+Read(x,y);
+if (y<=x+2) and (y<=x-2) and (y<=2) and (y>=0) and (y<=sqr(x)) then
+ print('ïðèíàäëåæèò')
+else
+ Print('íåò')
+end.
@@ -0,0 +1,9 @@
+var 
+x,y:real;
+begin
+Read(x,y);
+if (y<=1) and (x>=0) and (y>=-1) and ((y>=x-1) or (1<=Sqr(x)+Sqr(y))) then
+ print('ïðèíàäëåæèò')
+else
+ Print('íåò')
+end.
@@ -0,0 +1,9 @@
+var 
+x,y:real;
+begin
+Read(x,y);
+if ((y<=0) or (y>=x+1)) and (y<=3-Sqr(x)) then
+ print('ïðèíàäëåæèò')
+else
+ Print('íåò')
+end.
@@ -0,0 +1,14 @@
+var
+  a, b, x: real;
+
+begin
+  readln(a, b, x); 
+  if a = 0 then 
+    write('íåò ðåøåíèé') 
+  else 
+  begin
+    if b = 0 then 
+      write('x = 0') 
+    else write('x =', b / a, ' èëè x =', -b / a); 
+  end
+end.
@@ -0,0 +1,17 @@
+var
+  m, n, i, j: integer;
+
+begin
+  Read(m, n);
+  for j := m to n do
+  begin
+    writeln();
+    write(j, ':= ');
+    for i := 2 to m - 1 do
+    begin
+      if j mod i = 0 then
+        write(i, ' ');
+    end;
+  end;
+  
+end.
@@ -0,0 +1,25 @@
+var
+  a, b, c, n, i,j: int64;
+  gg: boolean;
+
+begin
+  gg := false;
+  j:=0;
+  read(n);
+  a := 1;
+  b := 1;
+  for i := 1 to ((n*n)-1) do
+  begin
+    c := a + b;
+    a := b;
+    b := c;
+    j:=j+1;
+    if c mod n = 0 then
+    begin
+      gg := true;
+      
+      break;
+    end;
+  end;
+  if gg then write('true ',j) else write('false ',j);
+end.
@@ -0,0 +1 @@
+var x, y: real; begin x := -5; while x <= 5 do begin y := 5 - (Sqr(x) / 2); writeln(x, ' ', y); x := x + 0.5; end; end.
@@ -0,0 +1,13 @@
+var
+  even, odd, num: integer;
+
+begin
+  Readln(num);
+  while num > 0 do 
+  begin
+    if num mod 2 = 0 then even := even + 1
+    else odd := odd + 1;
+    num := num div 10;
+  end;
+  writeln('odd ' , odd , ' even ' , even); 
+end.
@@ -0,0 +1,14 @@
+var
+  n, m, a: integer;
+
+begin
+  Readln(n);
+  while n > 0 do 
+  begin
+    a := n mod 10;
+    n := n div 10;
+    m := m * 10 + a;
+  end;
+  write(m);
+  
+end.
@@ -0,0 +1,16 @@
+var
+  a, b, n, diff: integer;
+
+begin
+  Readln(a);
+  diff := a;
+  while a > 0 do 
+  begin
+    a := a div 10;
+    n := n + 1;
+  end;
+  a := diff;
+  diff := 5 - n;
+  if diff > 0 then begin
+  
+end.
@@ -0,0 +1,23 @@
+var
+  f: string;
+  t: string;
+  sh: int64;
+  n: int64;
+  hh: array [1..99] of int64;
+
+begin
+  Assign(input, 'INPUT.TXT');
+  Readln(n);
+  for i: int64 := 1 to n+1 do 
+  begin
+  hh[i]:=0;
+  end;
+  for i: int64 := 1 to n do 
+  begin
+    Readln(f);
+    t := Copy(f, f.Length - 1, 2);
+    sh:=StrToInt64(t);
+    hh[sh]:=+1;
+  end;
+  Print('done');
+end.
@@ -0,0 +1,6 @@
+5
+Иванов П.С. 57
+Иванов Г.С. 84
+Иванов Д.С. 45
+Иванов Е.С. 54
+Иванов Ж.С. 58
@@ -0,0 +1,7 @@
+Program pr1;
+var l, n: integer;
+begin
+writeln('Èäèòå íà äëèíó, ñêîëüêî ðàñïèëîâ');
+readln(l,n);
+writeln('Ñðåäÿÿ äëèíà = ', l/n);
+end.
@@ -0,0 +1,7 @@
+Program pr;
+var A: integer;
+begin
+writeln('Ðàáîòíèêè ');
+readln(A);
+writeln('Çàðïëàòà ', 624750/A);
+end.
@@ -0,0 +1,8 @@
+Program pr1;
+var r: integer;
+begin
+writeln('Ðàäèóñ');
+readln(r);
+writeln('Äëèíà = ', Pi*2*r);
+writeln('Ïëîùàäü = ', Pi*r*r);
+end.
@@ -0,0 +1,14 @@
+Program pr1;
+var r1, r2: integer;
+s1, s2: real;
+begin
+writeln('Ðàäèóñ 1');
+readln(r1);
+writeln('Ðàäèóñ 2');
+readln(r2);
+s1:=Pi*r1*r1;
+writeln('Ïëîùàäü 1 = ', s1);
+s2:=Pi*r2*r2;
+writeln('Ïëîùàäü 2 = ', s2);
+writeln('Êîëüöî = ', s2 - s1);
+end.
@@ -0,0 +1,11 @@
+Program pr1;
+var A, B, C: integer;
+begin
+writeln('Ñàìîë¸òîâ, ðàêåò, ñïóòíèêîâ');
+readln(A, B, C);
+writeln('Èãîðàê ñáèë:');
+writeln(A,' Ñàìîë¸òîâ');
+writeln(B,' Ðàêåò');
+writeln(C,' Ñïóòíèêîâ');
+writeln('Îí íàáðàë ', A*50+B*100+C*200, ' î÷êîâ');
+end.
@@ -0,0 +1,7 @@
+Program pr1;
+var x1, y1, x2, y2: integer;
+begin
+writeln('x1, y1, x2, y2');
+readln(x1,y1,x2,y2);
+writeln('Äëèíà ', sqrt(sqr(x2-x1)+sqr(y2-y1)));
+end.
@@ -0,0 +1,7 @@
+program j;
+var z: integer;
+begin
+writeln('Ââĺäčňĺ Z');
+readln(z);
+writeln((z+12*z)/sqr(z));
+end.
@@ -0,0 +1,16 @@
+program gr;
+var N:integer;
+begin
+writeln('×èñëî');
+Readln(N);
+write(N div 10000,'   ');
+N:=N mod 10000;
+write(N div 1000,'   ');
+N:=N mod 1000;
+write(N div 100,'   ');
+N:=N mod 100;
+write(N div 10,'   ');
+N:=N mod 10;
+write(N div 1,'   ');
+N:=N mod 1;
+end.
@@ -0,0 +1,22 @@
+program gr;
+var N, sum:integer;
+begin
+writeln('×èñëî');
+Readln(N);
+sum:=sum+N div 10000;
+write(N div 10000,'   ');
+N:=N mod 10000;
+sum:=sum+N div 1000;
+write(N div 1000,'   ');
+N:=N mod 1000;
+sum:=sum+N div 100;
+write(N div 100,'   ');
+N:=N mod 100;
+sum:=sum+N div 10;
+write(N div 10,'   ');
+N:=N mod 10;
+sum:=sum+N div 1;
+write(N div 1,'   ');
+N:=N mod 1;
+write(sum);
+end.
@@ -0,0 +1,14 @@
+var i:integer;
+var A:array[1..10] of integer;
+begin
+Randomize;
+for i:=1 to 10 do begin
+A[i]:=Random(9);
+write(A[i]);
+end;
+writeln;
+for i:=1 to 10 do begin
+if A[i] mod 2=0 then
+write(A[i]);
+end;
+end.
@@ -0,0 +1,14 @@
+var i:integer;
+var A:array[1..20] of integer;
+begin
+Randomize;
+for i:=1 to 20 do begin
+A[i]:=Random(18)-9;
+write(A[i], ' ');
+end;
+writeln;
+for i:=1 to 20 do begin
+if A[i] <0 then
+write(A[i]);
+end;
+end.
@@ -0,0 +1,34 @@
+var 
+a:array [1..10, 1..20] of integer;
+i,j:integer;
+sum:array [1..10] of integer;
+max:integer;
+begin
+for i:=1 to 10 do begin
+for j:=1 to 20 do begin
+a[i,j]:=Random(10);
+write(a[i,j], ' ');
+end;
+writeln;
+end;
+writeln;
+for i:=1 to 10 do begin
+sum[i]:=0;
+end;
+for i:=1 to 10 do begin
+for j:=1 to 20 do begin
+sum[i]:=sum[i] + a[i,j];
+end;
+end;
+for i:=1 to 10 do begin
+write(sum[i], ' ' );
+end;
+writeln;
+max:=1;
+for i:=1 to 10 do begin
+if sum[i]<sum[max] then begin
+max:=i;
+end;
+end;
+write(max, ' ' , sum[max]);
+end.
@@ -0,0 +1,23 @@
+const
+  N = 30;
+
+var
+  A: array[1..N] of integer; 
+  i, x, y: integer; 
+  s: real;
+
+begin
+  for i := 1 to N do A[i] := Random(100); 
+  for i := 1 to N do if A[i] < 20 then A[i] := -1;
+  x := 0;
+  y := 0;
+  for i := 1 to N do 
+  begin
+    if A[i] <> -1 then begin
+      x := x + A[i];
+      y := y + 1;
+    end;
+  end;
+  s := x / y;
+  write(s);
+end.
@@ -0,0 +1,22 @@
+const
+  N = 30;
+
+var
+  A: array[1..N] of integer; 
+  i, x, y: integer; 
+  s: real;
+
+begin
+  for i := 1 to N do A[i] := Random(40) + 160; 
+  for i := 1 to N do if A[i] < 180 then A[i] := -1;
+  x := 200;
+  for i := 1 to N do 
+  begin
+    if A[i] <> -1 then begin
+      if A[i] < x then begin
+        x := A[i];
+      end;
+    end;
+  end;
+  write(x);
+end.
@@ -0,0 +1,8 @@
+const N = 31; 
+var A: array[1..N] of integer; 
+    i, x, y: integer; 
+    s: real; 
+begin
+  for i:=1 to N do Random(40) - 20; 
+  
+end.
@@ -0,0 +1,8 @@
+var a: integer;
+begin
+writeln('×èñëî');
+Readln(a);
+if a mod 2 = 0 then writeln('Äà')
+else
+writeln('íåò')
+end.
@@ -0,0 +1,8 @@
+var a, b: integer;
+begin
+writeln('×èñëî, äåëèòåëü');
+Readln(a, b);
+if a mod b = 0 then writeln('Äà')
+else
+writeln('íåò')
+end.
@@ -0,0 +1,8 @@
+var a, b, c, d: real;
+begin
+writeln('ïåð÷àòîê, ïîðòôåëÿ, ãàëñòóêà, Èñõîäíàÿ ñóììà');
+Readln(a, b, c, d);
+if d-a-b-c >= 0 then writeln('Âàø ñäà÷', d-a-b-c)
+else
+writeln('Íå õâàòàòü', d-a-b-c)
+end.
@@ -0,0 +1,9 @@
+var a, b: integer;
+begin
+writeln('îëÿ, êàòÿ');
+Readln(a, b);
+if a < b then writeln('îëÿ')
+else if a=b then writeln('Îäèíàêîãî')
+else
+writeln('êàòÿ')
+end.
@@ -0,0 +1,9 @@
+var a, b: integer;
+begin
+writeln('1, 2');
+Readln(a, b);
+if a > b then writeln('1 ', a)
+else if a=b then writeln('Ðàâíû ', a)
+else
+writeln('2 ', b)
+end.
@@ -0,0 +1,9 @@
+var a: real;
+begin
+writeln('t');
+Readln(a);
+if 36 > a then writeln('ill ', a)
+else if a >= 37 then writeln('ill ', a)
+else
+writeln('good ', a)
+end.
@@ -0,0 +1,9 @@
+var a: integer;
+begin
+writeln('Âîçðàñü');
+Readln(a);
+if 25 > a then writeln('( ', a)
+else if a > 40 then writeln('( ', a)
+else
+writeln(') ', a)
+end.
@@ -0,0 +1,8 @@
+var a: integer;
+begin
+writeln('×èñëî');
+Readln(a);
+if a mod 3 = 0 then writeln('Äà')
+else
+writeln('íåò')
+end.
@@ -0,0 +1,12 @@
+program gr;
+var N, g:integer;
+begin
+writeln('×èñëî, del');
+Readln(N, g);
+if N div 100 = g then write(N div 100,'   ');
+N:=N mod 100;
+if N div 10 = g then write(N div 10,'   ');
+N:=N mod 10;
+if N div 1 = g then write(N div 1,'   ');
+N:=N mod 1;
+end.
@@ -0,0 +1,11 @@
+var m,i:integer;
+begin
+for m:=5 to 30 do begin
+writeln('äåëèòåëè ÷èñëà ',m,':');
+for i:=2 to m-1 do begin
+if m mod i = 0 then
+write(i, ' ');
+end;
+writeln();
+end;
+end.
@@ -0,0 +1,8 @@
+var n,i:integer;
+begin
+n:=1;
+for n to n*n-1 do begin
+if i mod n = 0;
+writeln('Íàåøëñÿ äåëèòåëü!!! ',i);
+
+end.
@@ -0,0 +1,8 @@
+var a,b:integer;
+begin
+write('Ââåäèòå äèàïîçîí ÷èñåë: ');
+readln(a,b);
+for a:=a to b do 
+write(sqr(a),' ');
+a:=a+1;
+end.
@@ -0,0 +1,11 @@
+var n,m,a:integer;
+begin
+write('Ââåäèòå ÷èñëî: ');
+readln(n);
+while n>0 do begin
+a:=n mod 10;
+n:=n div 10;
+m:=m*10+a;
+end;
+write('×èñëî â îáðàòíîì ïîðÿäêå - ', m);
+end.
@@ -0,0 +1,16 @@
+var even,odd,a:integer;
+begin
+write('Ââåäèòå ÷èñëî: ');
+readln(a);
+while a>0 do begin
+if a mod 2=0 then begin
+even:=even+1;
+end
+else begin
+odd:=odd+1;
+end;
+a:=a div 10;
+end;
+writeln('×åòíûå - ', even);
+write('Íå÷åòíûå - ', odd);
+end.
@@ -0,0 +1,8 @@
+var x,y:integer;
+begin
+Writeln('Òàáëèöà çàí÷àíèé ôóíêöèè y=5-x*x/2');
+for x:=-5 to 5 do begin
+y:=5-sqr(x) div 2;
+writeln('x=',x,' ','y=',y);
+end;
+end.
@@ -0,0 +1,17 @@
+var a,b,n,diff:integer;
+begin
+Readln(a);
+b:=a;
+while a <> 0 do begin
+n:=n+1;
+b:=b div 10;
+end;
+writeln(n);
+end.
+                  ________
+                 /  ___  |
+                /  /   | |
+               /  /    |
+               |
+              /  /     | |
+             / _/      |_|
@@ -0,0 +1,41 @@
+procedure dec2bin(N: integer);
+begin
+  if N >= 2 then
+    dec2bin(N div 2);
+  Write(N mod 2);
+end;
+
+function step(x:integer):integer;
+ var i:integer; st:integer;
+ begin
+ if x=0 then step:=1 else begin
+      st:=1;
+      for i:=1 to x do begin
+      st:=st*2;
+      step:=st;
+      end; end;
+ end;
+var k,a,b,d,s:integer;
+
+begin
+s:=0;
+k:=0;
+writeln('Выберите режим 1:bin2dec 2:dec2bin');
+readln(a);
+if a=1 then begin
+writeln('Выбран режим bin2dec. Введите число');
+readln(a);
+repeat
+      b:=a mod 10;
+      d:=a div 10;
+      s:=s+b*step(k); 
+      k:=k+1;
+      a:=d;
+until d=0;
+writeln(s);
+end else begin 
+writeln('Выбран режим dec2bin. Введите число');
+readln(a);
+dec2bin(a);
+end;
+end.
@@ -0,0 +1,22 @@
+var
+  i, next, j, off, n: int64;
+  s: array[0..50] of integer;
+  mas: array[0..9] of integer;
+
+begin
+  readln(n);
+  for i := 0 to n-1 do readln(s[i]);
+  println(s);
+  next := 0;
+  off:=0;
+  if s[0] = 0 then begin next := 1; off:=1 end;
+  for i := off to n do 
+  begin
+    for j := 1 to s[i] do 
+    begin
+      print(next);
+    end;
+    if next = 0 then begin next := 1; end
+    else next := 0;
+  end;
+end.
@@ -0,0 +1,14 @@
+var 
+  i, j, b:integer;
+  mas:array[0..9] of integer;
+  
+begin
+  for i:=0 to 9 do mas[i]:=Random(5);
+  println(mas);
+  for i:=0 to 9 do begin
+  for j:=i+1 to 8 do begin
+  if mas[j] = mas[i] then b:=1;
+  end;
+  end;
+  if b=1 then print('yes') else print('no');
+  end.
				`@@ -0,0 +1 @@`
				`var x, y: real; begin x := -5; while x <= 5 do begin y := 5 - (Sqr(x) / 2); writeln(x, ' ', y); x := x + 0.5; end; end.`