1. Які дані опрацьовує програма у процесі своєї роботи?
А) вхідні; Б) вихідні; B) резервні; Г) проміжні; Д) основні .
2. Кожна мова програмування має такі складові:
А) алфавіт; Б) словник; B) семантику; Г) перекладач; Д)синтаксис.
3. Вкажіть властивості форми:
А) Name; Б) Top; B) Caption; Г) Visible; Д) Color .
4. Вкажіть властивості кнопки:
А) Name; Б) Font; B) Color; Г) Visible; Д) Enabled.
5. Вкажіть властивості напису:
А) Name; Б) Height; B) Caption; Г) Visible; Д) Width .
6. Вкажіть події, які можуть відбуватися з об’єктом:
А) Close; Б) Create; B) Top; Г) MouseMove; Д) Click .

Задача 1

Program Zadanie1;

var i,N:integer;

A:array[1..4]of integer;

Begin

readln(n);

A[1]:=round(int(N/1000));

A[2]:=round(int(N/100))-A[1];

A[3]:=round(int(N/10))-A[1]-A[2];

A[4]:=N-A[1]-A[2]-A[3];

if (A[1]:=A[4]) and (A[2]:=A[3]) and (A[3]:=A[2]) and (A[4]=A[1]) then writeln('полином');

end;

Задача 2

Program Zadanie2;

var i,N:integer;

A:array[1..3]of integer;

function Kub(a):integer;begin Kub:=a*a*a;end;

Begin

readln(n);

A[1]:=round(int(N/1000));

A[2]:=round(int(N/100))-A[1];

A[3]:=N-A[1]-A[2]-A[3];

if N*N=kub(A[1])+kub(A[2])+kub(A[3]) then writeln('равенство');

end;

Пример на Паскале. Пусть массив размером 100 элементов

Program Maasiv;

var A:array[1..100] of real; i,s:integer; k :real;

begin

random;

For i:=1 to 100 do A[i]:=randomize(100)-50; {заполняем массив случайными числами от -50 до 50}

s:=0; for i:=1 to 100 do if A[i]<i then S:=S+A[i]; writeln(s);{задание а}

s:=0; for i:=1 to 100 do if i/2=int(i/2) then S:=S+A[i]; writeln(s);{задание б}

s:=0; for i:=1 to 100 do if A[i]<0 then S:=S+A[i]; writeln(s);{задание в}

readln(k);s:=0; for i:=1 to 100 do if A[i]>k then S:=S+A[i]; writeln(s);{задание г}

end.