Консультация № 138814
31.05.2008, 18:55
0.00 руб.
0 1 1
Нужно написать программу.
Тема:циклы и разветвления при обработке последовательностей"

Задача: Дано натуральное N и действительные числа X1...Xn. Вычислить произведение тех членов,Xi-той последовательности,для которых выполнено условие i<Xi<i+1.

Если это на что-то влияет вообще,то ваш ответ оценю)

Обсуждение

Неизвестный
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.
Форма ответа