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