Основное свойство электронной таблицы - изменение числового значения в ячейке проводит к мгновенному пересчету формул, содержащих имя этой ячейки.
Так же к свойствам относится произведение расчетов, как правило, числовых.
Const
N = 30;
var
a: array [1..N] of integer;
i, nel, x: integer;
begin
writeln('Введите элементы массива');
for i := 1 to N do read(a[i]);
writeln('введите Х');
readln(x);
nel := 0; // номер найденного элемента
i := 1;
while (i <= n) and (nel = 0) do
begin
if a[i] = x then nel := i;
i := i + 1
end;
if nel > 0 then
writeln('Номер элемента ', nel)
else
writeln('Не найден элемент, удовлетворяющий условию')
end.
Тестовый пример:
Введите элементы массива
1 3 6 8 4 9 14 -4 7 45 4 8 0 23 63 253 23 453 54 20 54 12 -56 3 0 -34 28 27 90 23
введите Х
0
Номер элемента 13
Изначально дано x=2
1. x=x*x x=2*2=4
2. x=x*x*x x=4*4*4=64 (x=4 из предыдущего шага)
3. x=x*x*x*x x=64*64*64*64=16777216
Ответ: 16777216
Program Turbo;
uses Crt;
var
a,b,r:real;
begin
Write('Введите a и b через пробел: ');
Readln(a,b);
r:=a*b;
Writeln('Произведение равно ',r);
ReadKey
end.