б) sin(x) cos(x) ArcSin(x)
В) integer
Виберіть логічний тип даних
Б) boolean
Який з перерахованих типів не є типом для опису цілих чисел
Д) single
Який з перерахованих типів не є типом для опису дробових чисел
В) word
Вкажіть функції обчислення абсолютного значення аргументу и косинуса аргументу
А) trunc(x) cos(x)
Вкажіть функції обчислення результату від ділення двох цілих чисел і обчислення залишку від ділення
Г) div mod
Яка з перерахованих функцій обчислює експоненту аргумента?
Г) exp(x)
Вкажіть функциії обчислення квадратного корня і обчислення квадрату аргумента
А) sqrt(x) sqr(x
Вкажіть функцію заокруглення дійсного числа до найближчого цілого:
В) round(x)
Які значення приймає логічна змінна (змінна типу boolean)?
В) false або true
Перераховано типи логічних даних. Вкажіть лишній…
Б) byte
Задана програма. Вкажіть, який алгоритм використовується.
program alg;
var S,I:integer;
begin
S:=0;
for I:=1 to 100 do
S:=S+I*I;
write(S:5)
end.
в) циклічний
Задана програма. Вкажіть, який алгоритм використовується.
program alg;
var A,B:integer;
begin
B:=5;
A:=B + 19;
write(A, B:5)
end.
а) лінійний
Задана програма. Вкажіть, який алгоритм використовується.
program alg;
var S, I:integer;
begin
write(' S= ');readln(S);
if S>0 then I:=S else I:=S*S;
write(S, I:5)
end.
Б) розгалужений
Який масив описаний в наступному фрагменті?
...
type Massiv=array[1..10] of integer;
var A:Massiv;
…
в) одновимірний масив цілого типу
Який масив описаний в наступному фрагменті на Паскалі?
...
type Student=array[1..100] of real;
var A:Student;
...
б) одновимірниймасив дійсного типу
Задано фрагмент програми на Паскалі. Визначити типи змінних A,B і C:
program alg;
var A:real; B:integer; C:boolean;
в) A - дійсного типу, B - цілого типу, C - логічного типу
Перераховані деякі оператори Паскаля. Виберіть оператор читання, виводу і присвоювання:
в) readln writeln :=
Виберіть оператор опису типу одновимірного масиву:
а) for i := 1 to N do
б) type vektor=array[1..N] of real;
Вкажіть вірний перелік стандартних функцій Паскаля:
Б) exp(x) sin(x) sqrt(x)
Виберіть вірну умову знаходження точки х в інтервалі [a,b]:
в) (a<=x) and (x<=b)
Який масив описаний в наступному фрагменті на Паскалі?
...
type Massiv=array[1..10, 1..5] of real;
var A:Massiv;
…
б) двохвимірнии масив дійсного типу
Заданий вираз: 
, виберіть вірний варіант запису цього виразу:
б) t = exp((1/3)*ln(B*sqrt(cos(t-sqrt(a)))))/(B+exp(3*ln(a)))*1/(b-a);
Заданий вираз: 
, виберіть вірний варіант запису цього виразу:
б) t = (exp((x+3)-1)/(exp((1/3)*ln(x))+1)+a/(x+b));
Заданий вираз: 
, виберіть вірний варіант запису цього виразу:
д) m = exp((1/5)*ln(x+exp((1/7)*ln(x+exp((3)*ln(sqr(x)))))));
Заданий вираз: 
, виберіть вірний варіант запису цього виразу:
б) t = exp((1/5)*ln(x+(exp(3*ln(b))-x)))/(3*exp(3*ln(cos(x))));
Заданий вираз: 
, виберіть вірний варіант запису цього виразу:
в) m = exp((1/7)*ln(x+sqr(ln(x-a))))+B/exp(3*ln(x));
Заданий вираз: 
, виберіть вірний варіант запису цього виразу:
а) L = exp(exp((3)*ln(x))+exp(sqr(x)))*sin(exp(3*ln(x)))/exp((3)*ln(cos(x)));
Заданий вираз: 
, виберіть вірний варіант запису цього виразу:
б) L = A+exp((1/x)*ln(A+x))+ln(x)/ln(4);
Заданий вираз: 
, виберіть вірний варіант запису цього виразу:
в) f = b/(exp((1/3)*ln(c-k)))*sqr(ln(k/(B+A)));
Заданий вираз: 
, виберіть вірний варіант запису цього виразу:
а) y = exp((1/3)*ln(a*sqrt((b*x)/(A-x)))+c);
Заданий вираз: 
, виберіть вірний варіант запису цього виразу:
б) y = exp((1/3)*ln(A*exp(7*ln(sin(exp((5)*ln(x))))))+c);
Який з фрагментів програми перевірки істинності нерівності не містить помилок:
A)
{$N+, E+}
Begin
Write(Sqrt(1+Sqrt(1+Sqrt(2))), ‘ < ‘ , (1+Sqrt(5))/2); readln
End.
Який з фрагментів програми перевірки істинності нерівності не містить помилок:
Д)
{$N+, E+}
Begin
Write(Exp(Exp(1)*Ln(Pi)), ‘ < ‘ , Exp(Pi)); readln
End.
Який з фрагментів програми перевірки істинності нерівності не містить помилок:
Д)
{$N+, E+}
Begin
Write(Ln(6)/Ln(5), ’ > ’ ,Ln(7)/Ln(6)); readln
End.
Який з фрагментів програми перевірки істинності нерівності не містить помилок:
Г)
{$N+, E+}
Var x, Left, Right: Real;
Begin
x:=sin(y);
Left:=ArcTan(x/Sqrt((1-Sqr(x))));
Write(‘Ліва частина: ’, Left);
Right:=3*Pi-10;
Write(‘Права частина: ’, Right); readln
End.
Який з фрагментів програми перевірки істинності нерівності не містить помилок:
Г)
{$N+, E+}
Var s, Left, Right: Real;
Begin
Left:=16*Cos(2*Pi/s);
Write(‘Ліва частина: ’, Left);
s:=Sqrt(17);
Right:=Sqrt(34-2*s)+s-1+2*Sqrt(17+3*s-Sqrt(170+38*s));
Write(‘Права частина: ’, Right); readln
End.
Впорядкована послідовність елементів з одним і тим же ім'ям ...
б) називається масивом
Назвіть кількість елементів в масиві: var s:array[1..12] of real;
Б) 12
Назвіть кількість елементів в масиві var w:array[1..12,1..5] of real;
В) 60;
Якщо для визначення елементу масиву потрібно вказати одну координату (порядковий номер), то такий масив називається
а) одновимірним
Одна змінна величина масиву називається ...
б) індексом масиву
Програма FOR I:=1 TO N DO WRITELN(А[I]:4); означає...
б) виведення елементів масиву в стовпець
Програма FOR I:=1 TO N DO WRITE(А[I]:4); означає...
а) виведення елементів масиву в рядок
Розмірність масиву визначає ...
б) кількість елементів
Сформулюйте умову завдання: for i:=1 to 10 do s:=s+s[i];
а) знайти суму елементів масиву
Сформулюйте умову завдання: for i:=1 to 10 do s:=s*s[i];
в) знайти добуток елементів масиву
Сформулюйте умову завдання: for i:=1 to 10 do s:=s+1;
г) елементи масиву збільшити на 1
Розмір масиву - це:
б) кількість елементів
Запис A3[7] означає...
а) заданий масив А3 з 7 елементів
Запис B[33]:=99 означає...
б) 33-му елементу масиву привласнюється значення 99;
Що змінює оператор присвоювання?
б) значення змінної
Дано фрагмент програми на мові Паскаль. Вияснити, что вона робить:
readln(a); S:=a*a;
writeln(S)
в) Вводить з клавіатури число а, знаходить квадрат цього числа і виводить результат на екран
Яке значення отримає X після виконання програми:
program modula;
var X:integer;
begin
X:=2;
if X-X*X>0 then X:=-X else X:=X-2;
writeln(X:5);
end.
Г) 0
Нехай x и y типу real. Що буде надруковано при виконанні наступних операторів:
x:=5.1; y:=4.8;
writeln(x+y:5:2);
В) 9.90
Знайдіть невірно записане на Паскалі число:
а) 2,0
Відмітьте невірно вказане ім’я змінної:
В) Spice Girls
Вкажіть вірний перелік стандартних функцій Паскаля:
б) sin(x) cos(x) ArcSin(x)
Знайдіть невірно записане на мові Паскаль число:
В) .27
Що обчислює наступна програма на мові Паскаль?
program first;
var S,a,b:real;
begin
readln(a); readln(b);
S:=0.5*a*b; writeln(S);
end.
в) Площа прямокутного трикутника зі сторонами a і b
Знайдіть значення змінної x після виконання операції присвоювання:
x:=15;
x:=x-10;
а) 5
Знайдіть значення змінних x та y після виконання операцій присвоєння:
x:=3; y:=3;
y:=x+y; y:=x-2*y;
б) x=3 y=-9
Вкажіть вірний запис виразу на мові Паскаль
[(ax-b)x+c]x-d
б) ((a*x-b)*x+c)*x-d
Вкажіть вірний запис на мові Паскаль виразу
x4+5*x:
г) sqr(sqr(x))+5*x
Вкажіть вірний запис на мові Паскаль виразу
(1+x)2:
б) (1+x)*(1+x)
Вкажіть вірний запис на мові Паскаль виразу
|a+bx|
г) abs(a+b*x)
Визначити значення змінної s після виконання наступних операторів:
s:=0; n:=5;
for i:=1 to n do
s:=s+i;
Г) 15
Який з фрагментів програми пошуку максимального з трьох дійсних чисел X, Y,Z не містить помилок:
Д)
Var x, y, z, max: Real;
Begin
Write(‘Введіть 3-и дійсних числа: ’);
Readln(x,y,z);
If x>y then max:=x else max:=y;
If z>max then max:=z;
Write(‘Max= ’, max); readln
End.
Який з фрагментів програми пошуку максимального з суми та добутку трьох дійсних чисел X, Y,Z не містить помилок:
В)
Var x, y, z, s, d: Real;
Begin
Write(‘Введіть 3-и дійсних числа: ’);
Readln(x,y,z);
s:=x+y+z; d:=x*y*z;
If s>p then Write(‘сума більше: ’ , s , ‘>’ , p) else
If s>p then Write(‘добуток більше: ’ , p , ‘>’ , s) else
Write(‘сума та добуток рівні ’, s , ‘=’ , p); readln
End.
Який з фрагментів програми отримання цілої та дробової частини числа Х не містить помилок:
Д)
Var x, y: Real;
Begin
Write(‘Введіть любе дійсне число х= ? ’ , #8);
Readln(x);
If (x>0) or (Frac(x)=0) then y:=Int(x) else y:=Int(x)-1
Write(‘[’ , x , ‘] = ’ , y : 1 : 0) {ціла частина}
Write(‘[’ , x , ‘] = ’ , x-y : 1 : 15) {дробова частина}
End.
Який з фрагментів програми обчислення факторіалу не містить помилок:
A)
Var n, i: 1..20; f: Comp;
Begin
Write(‘Введіть натуральне число ’);
Readln(n);
f:=0;
for i:=1 to n do f:=f*i;
Writeln(n:40, ‘! = ’ , f : 0 : 0)
End.
Який з фрагментів програми знаходження кількості цифр натурального числа n не містить помилок:
В)
…
q:=0;
while n>9 do begin
Inc(q);
n:=n div 10 end;
Який з фрагментів програми знаходження суми цифр натурального числа n не містить помилок:
Г)
s:=n mod 10;
while n>9 do begin
n:=n mod 10;
s:=s+n mod 10; end;
…
Який з фрагментів програми обчислення значення функції y=4x3-2x2+5 для значень х, що змінюється від -3 до 1, з кроком 0,1 не містить помилок:
A)
{$N+,E+,R+}
Var x,y:Extended;
Begin
x:=-3;
Repeat
y:=2*Sqr(x)*(2*x-1)+5;
Write(‘x= ’ , x :5 : 1, ‘ y= ‘,y : 10 : 4, ‘ ‘:12);
x:=x+0.1
until x<1;
End.
б)
Який з фрагментів програми, що містить циклічний алгоритм не містить помилок:
А) var x, y, real;
A:=21.2;
For x:=4 to 8 do;
y:=A*x + SQR(x);
End;
Який з фрагментів програми не містить помилок:
А) Label 22;
var a, b, c, p, z: real;
Begin
b:=3.2;
c:=4.3;
22: write(‘Введіть а’);
Readln(a);
p:=a + b + c;
z:= a*p +b*p + c*p;
if z>0 then begin
z:=SQR(z);
End;
Goto 22
End.
Який з фрагментів програми не містить помилок:
в) var i: real;
s: integer;
i:=10;
Repeat
y:= SQR(i)
until i>10;
Write y;
Який з фрагментів програми не містить помилок:
а) var s,y,x: real;
Begin
s:=0; x:=0.4;
Repeat
y:=x*sin(x);
s:=s+y;
until s>2;
End;end.
Який з фрагментів програми не містить помилок:
а) var A, x, y: real
i: integer
Begin
A:=4.2; x:=0.5;
for i:=1 to 5do
Begin
y:=sin(x+A)*x;
End; end.
Який з фрагментів програми не містить помилок:
г) var x, a, b, y, h:real;
Begin
Readln(a, b, h);
x:=a;
while x<=b+h/2 do
Begin
y:=x*sin(x);
writeln(x:6:1, y:9:2);
x:=x+h
End; end.
Який з фрагментів програми не містить помилок:
а) var x, y, z, A: real;
i: integer;
Begin
A:=4.2;
x:=0.4;
for i:=1 to 5 do
Begin
y:=x+sin(x+A);
End; end.
Який з фрагментів програми не містить помилок:
в) var D, x, y, A: real;
i: integer;
Begin
A:=1.2;
x:=0.5; D:=1;
for i:=1 to 8 do
Begin
y:=sin(A+x);
D:=D+y;
End; end.
Який з фрагментів програми не містить помилок:
а) var x, y, z, D: real;
Begin
D:=0;
x:=4.2;
z:=3.4;
Repeat
y:=x*sin(x+z);
D:=D+y;
until D>4;
End; end.
Який з фрагментів програми не містить помилок:
в) var p: integer;
Begin
p:=2;
while p<10 do
Begin
p:=2*p+1;
p:=p+1;
End; end.
Який з фрагментів програми не містить помилок:
б) var p, z: real;
p:=7.1;
while (p>7) and (p<20) do begin
p=(p+3)/2
p=p-1
End;
…
Який з фрагментів програми не містить помилок:
б) var x, y, s, min: real;
i: integer;
Begin
x:=0.5; s:=5.2;
min:=x*(s+x);
for i:=1 to5 do begin
y:=x*(s+x);
if min>y then min:=y;
x:=x+0.2;
end; writeln(‘min=’,min:4:2);
End.
Який з фрагментів програми пошуку максимального значення функції не містить помилок:
а) var x, y, s, max: real;
i: integer;
Begin
x:=0.4;s:=9.5;
max:=x*sin(x+s);
for i:=1 to 5 do begin
y:=x*sin(x+s);
if max>y then max:=y;
x:=x+0.3;
end; writeln(‘max=’,max:4:2);
End.
Який з фрагментів програми не містить помилок: Немає правильної відповіді
Який з фрагментів програми не містить помилок:
д) var s, x, y: real;
i: integer;
Begin
s:=0; x:=2.4;
for i:=1 to 15 do begin
y:=ln(x)*sin(x);
s:=s+y;
end; writeln(‘s=’,s:4:2);
End.
Який з фрагментів програми не містить помилок:
д) var D, x, y: real;
i: integer;
Begin
D:=1; x:=0.8;
for i:=1 to 14 do
Begin
y:=cos(x)*x;
D:=D*y;
end; writeln(‘D=’,D:4:2);
End.
Який з фрагментів програми не містить помилок:
Д) Label 333;
var x, y, z:real;
x:=0.5; z:=0.5;
333: y:=cos(x+z)+z;
x:=x+0.1;
if y>2 then
Goto 333
End;
Який з фрагментів програми не містить помилок:
б) var A, x, y: real;
Begin
A:=4.5; x:=0.2;
for i:=1 to12 do begin
y:=sin(x+A)*x
End; end.
Який з фрагментів програми не містить помилок:
д) var A, B, x, y: real;
Begin
A:=2.4; B:=0.4; x:=0.8;
Repeat
y=cos(A+B)*log(x);
x:=x+y;
until x<4
End; end.
Який з фрагментів програми не містить помилок:
в) var x, y, z, A: real;
i: integer;
Begin
A:=4.2; x:=0.4;
for i:=1 to 5 do begin
y=x+ln(x+A);
writeln(‘y= ’, y:5:2); end;
Readln; end.
Який з фрагментів програми пошуку максимального елементу масиву не містить помилок:
а) var a:array[1..20] of real;
i:integer;
Begin
maxA:=A[1];
for i:=2 to 20 do
Begin
if maxA>A[i] then
maxA:=A[i];
End;
Writeln(maxA);
End.
Який з фрагментів програми пошуку максимального елементу не містить помилок:
в) var a:array[1..15] of real;
i:integer;
maxA:=A[1];
while i<=15 do begin
if A[i]>maxA then
A[i]:=maxA; i:=i+1; end;
Writeln(maxA); end.
Який з фрагментів програми пошуку максимального елементу масиву не містить помилок:
а) var a:array[1..15] of real;
i:integer;
Begin
i:=1;
Repeat
if maxA>A[i] then
maxA:=A[i];
until i<15;
Write(maxA); end.
Який з фрагментів програми пошуку мінімального елементу не містить помилок:
б) var a:array[1..20] of real; i:integer;
Begin
minA:=A[i];
for i:=2 to 20 do begin
if A[i]<minA then
A[i]:=minA; end;
Writeln(minA);
End.
в
Який з фрагментів програми пошуку мінімального елементу не містить помилок:
в) var a:array[1..15] of real; i:integer;
minA:=A[i];
while i<=15 do begin
if A[i]<minA then
A[i]:=minA; i:=i+1; end;
Writeln(minA); end.
Який з фрагментів програми пошуку мінімального елементу не містить помилок:
a) var a:array[1..15] of real; i: integer;
Begin
i:=1;
Repeat
if minA:>A[i] then
minA:=A[i];
until i<15;
Write(minA); end.
Який з фрагментів програми знаходження суми елементів масиву не містить помилок:
г) var a:array[1..10] of real; s,i:real;
Begin
for i:=1 to 10 do begin
s:=s+A[i]; i:=i+1; end;
writeln(s:4:2); end.
Який з фрагментів програми сортування масиву в порядку зростання не містить помилок:
б) var a:array[1..20] of real; n,i,j,c : integer;
Begin
for i:=1 to n do
if a[i]>a[i+1] then begin
a[i+1]:=a[i]; end;
for i:=1 to n do
write(a[i]:4); end.
Який з фрагментів програми знаходження добутку елементів масиву не містить помилок
в) var a:array[1..10] of real; i:integer; d:real;
Begin
d:=1;
for i:=1 to 10 do begin
d:=d*A[i]; end;
writeln(d:4:2); end.
Який з фрагментів програми знаходження кількості парних елементів масиву не містить помилок:
в) var a:array[1..20] of integer;
k,i:integer;
Begin
k:=0;
for i:=1 to 20 do
if A[i] mod 2=0 then Inc(k); end;
writeln(k:2:0); end.
Який з фрагментів програми обчислення суми додатніх і кількості від’ємних елементів масиву, не містить помилок:
a) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q : 0 .. n; sum: LongInt;
Begin
sum:=0; q:=1;
for i:=1 to n do begin
if a[i]<0 then sum:=sum+a[i];
if a[i]>0 then q:=q+1; end;
writeln(‘Сума додатніх членів : ’, sum);
writeln(‘Кількість від’ємних членів : ’, q ); readln; End.
б) const a : array [1..10] of real = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q : 0 .. n; sum: LongInt;
Begin
sum:=1; q:=1;
for i:=1 to n do begin
if a[i]>0 then sum:=sum+a[i];
if a[i]<0 then q:=q+1; end;
writeln(‘Сума додатніх членів : ’, sum);
writeln(‘Кількість від’ємних членів : ’, q ); readln; End.
в) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q : 0 .. n; sum: LongInt;
Begin
sum:=0; q:=0;
for i:=1 to n do begin
if a[i]<0 then sum:=sum+a[i];
if a[i]>0 then q:=q+1; end;
writeln(‘Сума додатніх членів : ’, sum);
writeln(‘Кількість від’ємних членів : ’, q ); readln; End.
г) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q : 0 .. n; sum: LongInt;
Begin
sum:=0; q:=0;
for i:=1 to n do begin
if a[i]>0 then sum:=sum+a[i];
if a[i]<0 then q:=q+1; end;
writeln(‘Сума додатніх членів : ’, sum);
writeln(‘Кількість від’ємних членів : ’, q ); readln; End.
д) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q : 0 .. n; sum: LongInt;
Begin
sum:=1; q:=0;
for i:=2 to n do begin
if a[i]>0 then sum:=sum+a[i];
if a[i]<0 then q:=q+1; end;
writeln(‘Сума додатніх членів : ’, sum);
writeln(‘Кількість від’ємних членів : ’, q ); readln; End.
Який з фрагментів програми знаходження непарних елементів масиву не містить помилок:
a) var a:array[1..20] of integer; k,i:integer;
begin
for i:=1 to 20 do
if A[i] odd 2=1 then writeln(A[i]:4:2);
end; end.
б) var a:array[1..20] of integer; k,i:real;
begin
for i:=1 to 20 do
if A[i] trunc 2=1 then writeln(A[i]:4:2);
end; end.
в) var a:array[1..20] of real;
k,i:integer;
for i:=1 to 20 do
if A[i] frac 2=0 then writeln(A[i]:4:2);
end; end.
г) var a:array[1..20] of integer; k,i:integer;
begin
for i:=1 to 20 do
if A[i] div 2=1 then writeln(A[i]:4:2);
end; end.
д) var a:array[1..20] of integer; k,i:integer;
begin
for i:=1 to 20 do
if A[i] mod 2=1 then writeln(A[i]:4:2);
end; end.
Який з фрагментів програми обчислення кількості таких і, що аі не менше всіх попередніх, не містить помилок:
a) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, max, q : Integer;
Begin
q:=1; max:=a[1];
for i:=2 to n do
if a[i]>=max then begin max:=a[i]; Inc(q) end;
write(q); readln; End.
б) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, max, q : Integer;
Begin
q:=1; max:=a[1];
for i:=2 to n do
if a[i]<=max then begin max:=a[i]; Inc(q) end;
write(q); readln; End.
в) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, max, q : Integer;
Begin
q:=0; max:=a[0];
for i:=2 to n do
if a[i]>=max then begin max:=a[i]; Dec(q) end;
write(q); readln; End.
г) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, max, q : Integer;
Begin
q:=0; max:=a[1];
for i:=1 to n do
if a[i]>=max then begin max:=a[i]; Dec(q) end;
write(q); readln; End.
д) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, max, q : Integer;
Begin
q:=1; max:=a[1];
for i:=2 to n do
if a[i]>=max then begin max:=a[i]; trunc(q) end;
write(q); readln; End.
Який з фрагментів програми заміни всіх членів послідовності а1, . . аn більше 7 числом 7, не містить помилок:
a) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q , n : Byte;
Begin
q:=1;
for i:=1 to n do begin
if a[i]>7 then begin a[i]:=7; Inc(q); end;
writeln(‘Всього виконано замін : ’, q); readln; End.
б) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q , n : Byte;
Begin
q:=0;
for i:=1 to n do begin
if a[i]>7 then begin a[i]:=7; Inc(q); end;
writeln(‘Всього виконано замін : ’, q); readln; End.
в) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q , n : Byte;
Begin
q:=1;
for i:=1 to n do begin
if a[i]>7 then begin a[i]:=7; Dec(q) end;
writeln(‘Всього виконано замін : ’, q); readln; End.
г)
const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q , n : Byte;
Begin
q:=0;
for i:=2 to n do begin
if a[i]>7 then begin a[i]:=7; Dec(q) end;
writeln(‘Всього виконано замін : ’, q); readln; End.
д) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q , n : Byte;
Begin
q:=0;
for i:=1 to n do begin
if a[i]>7 then begin a[i]:=7; Trunc(q); end;
writeln(‘Всього виконано замін : ’, q); readln; End.
Який з фрагментів програми обчислення кількості чисел, більших середнього арифметичного членів послідовності а1, . . аn , не містить помилок:
a) const n=10;
Var a : array [1..n] of Real = (10.4, -2.7, 12.1, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 9.3);
i, q : Byte; sum : Real;
Begin q:=0; sum:=0;
for i:=1 to n do sum:=sum+a[i];
sum:=sum/n;
for i:=1 to n do if a[i]<sum then Inc(q);
writeln(q); readln; End.
б) const n=10;
Var a : array [1..n] of Integer = (10.4, -2.7, 12.1, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 9.3);
i, q : Byte; sum : Real;
Begin q:=0; sum:=0;
for i:=1 to n do sum:=sum+a[i];
sum:=sum/n;
for i:=1 to n do if a[i]>sum then Dec(q);
writeln(q); readln; End.
в) const n=10;
Var a : array [1..n] of Real = (10.4, -2.7, 12.1, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 9.3);
i, q : Byte; sum : Real;
Begin q:=1; sum:=0;
for i:=1 to n do sum:=sum+a[i];
sum:=sum/n;
for i:=1 to n do if a[i]>sum then Dec(q);
writeln(q); readln; End.
г) const n=10;
Var a : array [1..n] of Real = (10.4, -2.7, 12.1, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 9.3);
i, q : Byte; sum : Real;
Begin q:=0; sum:=0;
for i:=1 to n do sum:=sum+a[i];
sum:=sum/n;
for i:=1 to n do if a[i]>sum then Inc(q);
writeln(q); readln; End.
д) const n=10;
Var a : array [1..n] of Real = (10.4, -2.7, 12.1, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 9.3);
i, q : Byte; sum : Real;
Begin q:=0; sum:=0;
for i:=1 to n do sum:=sum*a[i];
sum:=sum/n;
for i:=1 to n do if a[i]<sum then Inc(q);
writeln(q); readln; End.
Який з фрагментів програми обчислення кількості максимальних чисел членів послідовності а1, . . аn , не містить помилок:
a) const n=10;
Var a : array [1..n] of Real = (10.4, -2.7, 17, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 17);
i, q : Double; max : Real;
Begin q:=1; max:=a[1];
for i:=2 to n do
if a[i]>max then
begin max:=a[i]; q:=2; end
else if a[i]=max then Inc(q);
writeln(q); readln; End.
б) const n=10;
Var a : array [1..n] of Real = (10.4, -2.7, 17, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 17);
i, q : Byte; max : Real;
Begin q:=1; max:=a[1];
for i:=2 to n do
if a[i]>max then
begin max:=a[i]; q:=1; end
else if a[i]<max then Dec(q);
writeln(q); readln; End.
в) const n=10;
Var a : array [1..n] of Real = (10.4, -2.7, 17, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 17);
i, q : Double; max : Real;
Begin q:=1; max:=a[1];
for i:=2 to n do
if a[i]<max then
begin max:=a[i+1]; q:=1; end
else if a[i]=max then Dec(q);
writeln(q); readln; End.
г) const n=10;
Var a : array [1..n] of Real = (10.4, -2.7, 17, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 17);
i, q : Byte; max : Real;
Begin q:=1; max:=a[1];
for i:=2 to n do
if a[i]<max then
begin max:=a[i]; q:=1; end
else if a[i]=max then Inc(q);
writeln(q); readln; End.
д) const n=10;
Var a : array [1..n] of Real = (10.4, -2.7, 17, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 17);
i, q : Byte; max : Real;
Begin q:=1; max:=a[1];
for i:=2 to n do
if a[i]>max then
begin max:=a[i]; q:=1; end
else if a[i]=max then Inc(q);
writeln(q); readln; End.
Який з фрагментів програми пошуку номера елемента х в послідовності а1, . . аn , не містить помилок:
a) const x=13; n=10; a : array [1..n] of Real = (10, 6, 55, -1, 13, 6, 29, -80, 1, -16);
Var i : 1 . . n;
Begin i:=1;
while (a[i] >x) and (i<n) do Inc(i);
if a[i]< >x then write (‘Заданого елемента немає! ’)
else write (‘Номер елемента : ’, i); end.
б) const x=13; n=10; a : array [1..n] of Real = (10, 6, 55, -1, 13, 6, 29, -80, 1, -16);
Var i : 1 . . n;
Begin i:=1;
while (a[i]< x) and (i<n) do Dec(i);
if a[i]< >x then write (‘Заданого елемента немає! ’)
else write (‘Номер елемента : ’, i); end.
в) const x=13; n=10; a : array [1..n] of Real = (10, 6, 55, -1, 13, 6, 29, -80, 1, -16);
Var i : 1 . . n;
Begin i:=1;
while (a[i]>x) and (i<n) do trunc(i);
if a[i]< >x then write (‘Заданого елемента немає! ’)
else write (‘Номер елемента : ’, i); end.
г) const x=13; n=10; a : array [1..n] of Real = (10, 6, 55, -1, 13, 6, 29, -80, 1, -16);
Var i : 1 . . n;
Begin i:=1;
while (a[i]<x) and (i<n) do odd(i);
if a[i]< >x then write (‘Заданого елемента немає! ’)
else write (‘Номер елемента : ’, i); end.
д) const x=13; n=10; a : array [1..n] of Real = (10, 6, 55, -1, 13, 6, 29, -80, 1, -16);
Var i : 1 . . n;
Begin i:=1;
while (a[i]< >x) and (i<n) do Inc(i);
if a[i]< >x then write (‘Заданого елемента немає! ’)
else write (‘Номер елемента : ’, i); end.
За допомогою якого символа присвоюється значення змінній
д) ":="
За допомогою якого символа можна вивести на екран значення змінної
в)"="