С помощью цикла Repeat…Until составить программу для нахождения произведения пяти первых...

Question

С помощью цикла Repeat…Until составить программу для нахождения произведения пяти первых нечетных чисел.
программа паскаль абц

Answer 1

Program v;
Var a,b,n:integer;
BEGIN
b:=1;
repeat
readln(a);
if (a mod 2 > 0) or (a mod 2 < 0) then begin
b:=b*a;
n:=n+1;
end;
until n=5;
writeln (b);
END.


Должно работать.

Comments

Ща посмотрю

---

Все отлично работает

---

сам проверил

---

я что настолько тупая, почему у меня не чего не выходит

---

Программа выводит ответ, когда ты введешь 5 нечетных чисел, а на четные она и не должна реагировать.

---

Я ввел 1 2 3 1 3 2 3 и получил ответ 27

---

1*3*1*3*3=27

---

всё СПАСИБО ОГРОМНОЕ!!!!!

---

я понила

---

Не за что.