1. Дадени са следните дефиниции:
type rec=record
           i: integer;
           m: array[1..2] of integer;
         end;
var rec1, rec2: rec;
Отбележете верните оператори за присвояване.

+  rec1.i:=rec2.i;
-  rec1.i:=rec2.m;


2. Дадени са следните дефиниции:
var m, n: integer;
    b1, b2: boolean;
Отбележете верните аритметични изрази и оператори за присвояване.

+  n:=-10;
-  b1:=2;


3. Отбележете операторите за цикъл, които пораждат безкраен цикъл, ако
i е променлива от тип integer и има стойност 1.

+  while true do i:=i-1;
-  while (i=1) and (i<0) do i:=i-1;


4. Дадени са следните дефиниции:
const k=0;  e=1;   m=2;
Отбележете изразите, чиято стойност е true.

+  k>=0
-  k+m>2*e


5. Отбележете валидните имена на променливи.

+  AB
-  v2$


6. Дадени са следните константи:
const age1=21;   age2=81;   k=9;
Отбележете изразите, които имат стойност 9.

+  age2 div k
-  (age2-2) div k


7. Отбележете правилните дефиниции на константи.

+  const k=3;
-  const s: 24;


8. Отбележете правилните дефиниции на типове данни.

+  type izb=(one, two, three, four);
-  type st8=string(8);


9. Отбележете израза, който след като се постави на мястото на ...,
програмата отпечатва числото 15.
const k: integer=15;
begin
   if (...) then writeln(k);
end.

+  k<>1
-  k>15


10. Отбележете израза, който след като се постави на мястото на ...,
програмата отпечатва 3 пъти буква Z.
var i, k: integer;
for i:=4 downto 1 do
begin
   ...
   if i>=k then write('Z');
end.

+  k:=2;
-  k:=i+1;


11. Отбележете операторите, които ще отпечатат на екрана
стойността на константата без закръгляване, ако
const r=10.52;

+  writeln(r:5:2);
-  write(r:0:0);


12. Дадени са следните дефиниции:
var m: integer;
    ra, rb: real;
    c1, c2: char;
Отбележете верните аритметични изрази и оператори за присвояване.

+  m:=100;
-  c1:=chr(c2);


13. Отбележете идентификаторите, които са имена на стандартни процедури
и имат параметър от тип string.

+  delete
-  remove


14. Отбележете верните дефиниции на процедури и функции.

+  procedure O(b:char);
-  function Last;


15. Отбележете имената на стандартни функции и процедури за
работа с файлове, т.е. които (могат да) имат параметри от тип файл.

+  rewrite
-  round


16. Отбележете операторите за цикъл, при които оператора в
тялото на цикъла ще се изпълни точно 1 път.

+  for i:=0 to 0 do write(i);
-  i:=-1; while i>0 do i:=i+1;