Question

Паскаль програма Ввести з клавіатури n будь-яких чисел. Знайти яке з них належать інтервалу [1 to 30]. та добуток тих, що належать інтервалу [1 to 30].
Треба щоб програма дозволяла ввести числа - перевірити відносяться до інтервалу - ті,які відносяться, помножити
Паскаль программа Введите с клавиатуры n любых чисел. Найти какое из них принадлежат интервалу [1 to 30] и умножить (произведение) те, что принадлежат интервалу [1 to 30].
Надо чтобы программа могла позволяла числа - проверить относящиеся к интервалу - относящиеся умножить

Answer 1

program IntervalMultiplication;

var

 число, произведение: integer;

begin

 произведение := 1; // Инициализируем произведение единицей

 writeln('Введите числа (для завершения введите 0): ');

 repeat

   write('Введите число: ');

   readln(число);

   // Проверяем, принадлежит ли число интервалу [1 до 30]

   if (число >= 1) and (число <= 30) then

   begin

     произведение := произведение * число; // Умножаем число, если оно принадлежит интервалу

   end;

 until число = 0;

 // Выводим произведение чисел, принадлежащих интервалу [1 до 30]

 writeln('Произведение чисел, принадлежащих интервалу [1 до 30]: ', произведение);

end.

Answer 2

Ответ:

program ku;

var x,p:real;

n,i:integer;

begin

p:=1;

read(n);

for i:=1 to n do

begin

read(x);

if (x>=1)and(x<=30) then p:=p*x

end;

write (p)

end

Объяснение:

n-количество чисел, которые будут вводится

x-число, которое вводится

p-произведение чисел из интервала