program raf105;
const n = 10;
var y:array[1..n] of real;
i,x,c,a:integer;
begin
write('Введите значение X: ');
readln(x);
write('Введите значение C: ');
readln(c);
write('Введите значение A: ');
readln(a);
writeln('Элементы массива:');
for i:=1 to n do
begin
y[i]:= sqrt(x-5*c+x/14+a);
writeln(y[i]);
end;
end.
2.program raf105;
const n = 10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('Положительные, нечётные элементы сгенерированного массива:');
for i:=1 to n do
begin
a[i]:= random(-100,100);
if (a[i] > 0) and ((a[i] mod 2) <> 0)
then writeln(a[i]);
end;
end.
3.program raf105;
var a:array[1..3,1..3] of integer;
pro,i,j:integer;
begin
writeln('Вводите 9 чисел по очереди');
pro:= 1;
for i:=1 to 3 do
for j:=1 to 3 do
begin
readln(a[i,j]);
if (a[i,j]<0) and (a[i,j]>-14)
then pro *= a[i,j];
end;
writeln('Произведение отрицательных элементов больше -14:');
writeln(pro);
end.
4.program raf105;
const n = 10;
var a:array[1..n] of integer;
pro,k,i:integer;
begin
write('Номер заменяемого элемента: ');
readln(k);
writeln('Вводите ',n,' чисел по очереди');
pro:= 1;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] mod 5)=0
then pro *= a[i];
end;
a[k]:= pro;
write('Вывод: ');
for i:=1 to n do
write(a[i],' ');
end.
Язык программирования PascalABC
program raf105;
var a:array[1..3,1..3] of integer;
i,j,x:integer;
begin
writeln('Введите 9 чисел по очереди');
x:= 1;
for i:=1 to 3 do
for j:=1 to 3 do
begin
readln(a[i,j]);
if (a[i,j] < 0) and (a[i,j] > -14)
then x *= a[i,j];
end;
writeln('Вывод: ',x);
end.
2.program raf105;
var a:array[1..10] of integer;
n,i,x:integer;
begin
writeln('Вводите 10 чисел по очереди: ');
x:= 1;
for i:=1 to 10 do
begin
readln(a[i]);
if ((a[i] mod 5) = 0) and (a[i] <> 0)
then x *= a[i];
end;
writeln('Введите число от 1 до 10');
readln(n);
a[n] := x;
writeln(n,'-й элемент массива заменён на число ',x);
for i:=1 to 10 do
writeln(a[i]);
end.
Язык PascalABC
2. b = 9
3. b = 12
Объяснение:
#2 (21212)
((18*2+b)*2+b)*2=198
((36+b)*2+b)*2=198
(72+2*b+b)*2=198
(72+3*b)*2=198
144+6*b=198
6*b=198-144
6b=54
b=9
#3 (12121)
((13+b)*2+b)*2+b=136
(26+2*b+b)*2+b=136
(26+3*b)*2+b=136
52+6*b+b=136
7*b=136-52
7*b=84
b=12