Ответ Б
<span>b) Write ('Привет!!!');
</span>
Код программы:
<em>program</em><em> </em><em>learning</em><em>;</em>
<em>var</em><em> </em><em>a</em><em>,</em><em> </em><em>c</em><em>:</em><em> </em><em>Integer</em><em>;</em>
<em>begin</em>
<em>c</em><em>:</em><em>=</em><em> </em><em>0</em><em>;</em>
<em>readln</em><em>(</em><em>a</em><em>)</em><em>;</em>
<em>while</em><em>(</em><em>a</em><em> </em><em>mod</em><em> </em><em>2</em><em> </em><em>=</em><em> </em><em>0</em><em>)</em>
<em>do</em><em> </em><em>begin</em>
<em>a</em><em>:</em><em>=</em><em> </em><em>a</em><em> </em><em>mod</em><em> </em><em>2</em><em>;</em>
<em>c</em><em>:</em><em>=</em><em> </em><em>c</em><em>+</em><em>1</em><em>;</em>
<em>end</em><em>;</em>
<em>writeln</em><em>(</em><em>c</em><em>)</em><em>;</em>
<em>end</em><em>.</em>
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
const
m = 99;
var
n,i, j: integer;
A,: Array[1..m] of integer;
begin
Randomize;
write('n = ');
readln(n);
for i := 1 to n do
begin
repeat
j := Random(n) + 1
until A[j] = 0;
A[j] := i;
end;
for i := 1 to n do
write(A[i]:3);
writeln;
end.
Var x: integer;
begin
read(x);
writeln(x/2,54);
end.