1)
var
d, i: integer;
A: array[1..10] of integer;
begin
d := 1;
write('Введите элементы массива: ');
for i := 1 to 10 do read(A[i]);
for i := 1 to 10 do d := d * A[i];
writeln('Произведение элементов: ' + d);
end.
2)
var
d, i: integer;
A: array[1..10] of integer;
begin
d := 1;
randomize();
for i := 1 to 10 do A[i] := random(1,10);
for i := 1 to 10 do begin
if A[i] mod 2 = 0 then d := d * A[i];
end;
writeln('Произведение элементов: ' + d);
end.
3)
var
d, i: integer;
A: array[1..10] of integer;
begin
d := 1;
randomize();
for i := 1 to 10 do A[i] := random(1,10);
for i := 1 to 10 do begin
if i mod 2 = 1 then d := d + A[i];
end;
writeln('Сумма элементов: ' + d);
end.
d=1
Объяснение:
Программа 12212 дает результат 37. Идем с конца
Последняя двойка означает что было прибавлено d и получилось 37. Предпоследняя единица означает, что перед этим число было возведено в квадрат. Ближайшие квадраты чисел это 36 (6²) или 25 (5²).
Предположим что до возведения в квадрат это было число 6, которое потом возвели в квадрат, получили 36 прибавили d и получили 37. Тогда d=1. Двигаемся дальше к началу. 6 получилось после того как два раза прибавили d (Две двойки на 2 и 3 месте в программе). Если мы предположили что d=1, то до этих прибавлений число было 6-1-1=4.
4 получилось после выполнения команды 1, то есть после возведения начального числа в квадрат. Очевидно что начальное число было 2, что соответствует условию.
Значит наше предположение что d=1 верное.
ответ: d=1