31.05.2008, 19:35
общий
это ответ
Здравствуйте, Иванова Дарья Сергеевна!
Задача с пояснениями в приложении.
Удачи!!!
Приложение:
program q138814;var {N-кол-чисел в последовательности, i-номер тек числа в последовательности} N, i: integer; {x-введенное число, mul-произведение} x, mul: real;begin {Инициализируем произведение} mul:=1; {Получаем кол-во чисел в последовательности} Write(‘N: ‘); ReadLn(n); {Обрабатываем последовательность} for i:=1 to N do begin {Получаем очередное число} Write(‘X‘, i, ‘: ‘); readln(x); {Проверяем условие} if (X > i) and (X < (i+1)) then {Если число удовлетворяет условию, то умножаем его на произведение} mul:=mul*x; end; {Вывод рез-та} Write(‘Mul = ‘, mul:8:3); readln;end.