Составить программу которая вычисляет произведение членов последовательности N...

Question

Составить программу которая вычисляет произведение членов последовательности N натуральных чисел, кратных 5. Программа получает на вход целые числа, количество введеных чисел неизвестно, последовательность заканчивается числом N.

Answer 1

В условии задачи есть противоречие: с одной стороны количество чисел = N, а с другой - количество неизвестно, а дается признак конца последовательности. Программа дана для 2-го варианта.
var n,a:integer; p:real;
begin
write('n = '); readln(n);
write('a = '); readln(a);
p:=1;
while a<>n do
 begin
 if a mod 5 = 0 then p:=p*a;
 write('a = '); readln(a);
 end;
writeln('p = ',p);
end.

Пример:
n = 999
a = 6
a = 10
a = 24
a = 15
a = 56
a = 7
a = 5
a = 999
p = 750

Answer 2

Мой милорд, прибыли поставки в виде решения

Comments

Еще с двумя можешь помочь?

---

Смотря что там

---

Составить программу Которая выводит на экран произведение четных элементов заданной последовательности натуральных чисел. Последовательность начинается числом 1 заканчивается числом n.

---

Составить программу Для вывода на экран произведение двузначных элементов последовательности натуральных чисел, которые делятся на заданное число t.

---

вот

---

В личку щас напишу, тут неудобно писать

---

Хороршо