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.

б)

Var n, i: 1..20; f: Comp;

Begin

Write(‘Введіть натуральне число ’);

Readln(n);

f:=0;

for i:=2 to n do f:=f*i;

Writeln(n:40, ‘! = ’ , f : 0 : 0)

End.

в)

Var n, i: 1..20; f: Comp;

Begin

Write(‘Введіть натуральне число ’);

Readln(n);

f:=0;

for i:=0 to n do f:=f*i;

Writeln(n:40, ‘! = ’ , f : 0 : 0)

End.

г)

Var n, i: 1..20; f: Comp;

Begin

Write(‘Введіть натуральне число ’);

Readln(n);

f:=1;

for i:=0 to n do f:=f*i;

Writeln(n:40, ‘! = ’ , f : 0 : 0)

End.

д)

Var n, i: 1..20; f: Comp;

Begin

Write(‘Введіть натуральне число ’);

Readln(n);

f:=1;

for i:=2 to n do f:=f*i;

Writeln(n:40, ‘! = ’ , f : 0 : 0)

End.

Який з фрагментів програми знаходження кількості цифр натурального числа n не містить помилок:

a)

…

q:=0;

while n>9 do begin

Dec(q);

n:=n div 10 end;

…

б)

…

q:=1;

while n>9 do begin

Inc(q);

n:=n div 10 end;

…

в)

…

q:=0;

while n>9 do begin

Inc(q);

n:=n div 10 end;

…

г)

…

q:=1;

while n>9 do begin

Inc(q);

n:=n mod 10 end;

…

д)

…

q:=0;

while n<9 do begin

Inc(q);

n:=n div 10 end;

…

Який з фрагментів програми знаходження суми цифр натурального числа n не містить помилок:

a)

…

s:=n div 10;

while n>9 do begin

n:=n mod 10;

s:=s+n mod 10; end;

…

б)

…

s:=n mod 10;

while n>9 do begin

n:=n div 10;

s:=s+n mod 10; end;

…

в)

…

s:=n div 10;

while n>9 do begin

n:=n div 10;

s:=s+n div 10; end;

…

г)

…

s:=n mod 10;

while n>9 do begin

n:=n mod 10;

s:=s+n mod 10; end;

…

д)

…

s:=n mod 10;

while n<9 do begin

n:=n div 10;

s:=s+n div 10; end;

…

Який з фрагментів програми обчислення значення функції y=4x³-2x²+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.

б)

{$N+,E+,R+}

Var x,y:Real;

Begin

x:=-3;

do

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.

в)

{$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.

г)

{$N+,E+,R+}

Var x,y:Real;

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

do until x<1;

End.

д)

{$N+,E+,R+}

Var x,y:Extended;

Begin

x:=-3;

repeat

y:=2*Sqrt(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;

б) var x, y: integer;

n: real;

begin

x:=0.4;

n:=105;

y:=sin(SQR(x))+n/x;

if y>0 then y1:=sin(x); end;

write(‘y=’: y:4:2);

write(‘y1=’:y:4:2); end.

в) var A, x, y: real;

i: integer;

begin

A:=25.4; x:=0.4;

For i:=1 to10 do begin

y:= sin(x + A)*i;

x:=x+0.2;

end; write(‘y=’,y:4:2);

end.

г) var x, y: real;

i: integer;

x:=0.2;

begin

repeat

y:= cos(x + 2);

x:=x + 0.4;

write(‘y=’,y:4:2);

end; end.

д) var A, x, y: real;

i: integer;

begin

A:=25.4; x:=0.4;

while i:=1 to10 do begin

y:= sin(x + A)*i;

x:=x+0.2;

end; write(‘y=’,y:4:2);

end.

Який з фрагментів програми не містить помилок:

а) Label 22;