Помогите решить с циклом repeat-until, дам лучший ответ!!! 1. Произведение первых...

Question

Помогите решить с циклом repeat-until, дам лучший ответ!!!

1. Произведение первых нечетных натуральных чисел равно p. Сколько сомножителей взято.
2. Написать программу, вычисляющую сумму и среднее арифметическое последовательности чисел, которые вводятся с клавиатуры (ввод чисел оканчивается числом 0).

Answer 1

1.
var p,a,k,pr:integer;
begin
write('p = '); readln(p);
a:=1; k:=1; pr:=1;
repeat
 a:=a+2;
 k:=k+1;
 pr:=pr*a;
until pr=p;
writeln('k = ',k);
end.

Пример:
p = 945
k = 5

2.var a,s,k:integer;
begin
s:=0; k:=0;
 write('a = '); readln(a);
repeat
 s:=s+a;
 k:=k+1;
 write('a = '); readln(a);
until a=0;
writeln('s = ',s,'  sr = ',s/k);
end. 

Пример:
a = 2
a = 4
a = 3
a = 1
a = 5
a = 0
s = 15  sr = 3

Comments

не выводит ответ(

---

В какой задаче?

---

в первой

---

что такое pr в первой задаче?

---

нет, все нормально) спасибо

Answer 2

#include  using namespace std;                                                       double PI = 3.14159265;                                int main(){ double otvet = 10, kolvo = 0, sum = 0, srednee = 0;while ( otvet > 0 ){  cin >> otvet;  sum += otvet;  kolvo++;} if( kolvo == 1 ){  cout << 0 << " " << 0;  return 0;} printf ("%.6f %.6f", sum, sum/(kolvo - 1)); return 0;}<strong>

Comments

#include
using namespace std;
double PI = 3.14159265;
int main()
{
double otvet = 10, kolvo = 0, sum = 0, srednee = 0;
while ( otvet > 0 )
{
cin >> otvet;
sum += otvet;
kolvo++;
}
if( kolvo == 1 )
{
cout << 0 << " " << 0;<br> return 0;
}
printf ("%.6f %.6f", sum, sum/(kolvo - 1));
return 0;
}

---

решение второй задачи, первым выводит сумму, вторым среднее арифм.

---

И где же здесь repeat-until?

---

ну скажем цикл while делает внутри себя следующее, он вводит столько, сколько будет введено до нуля, то есть мы не знаем сколько чисел всего - это и есть repeat-until (типо повтор пока условие истино) , а условие , что число, которое мы ввели не равно нулю, иначе вводу конец

---

While не есть repeat-until. Такой цикл есть в паскале, а вы написали на Си

---

на будущие repeat-until - это вид цикла, а не название в коде, а что он делает, я уже написал и уточнять надо, на си или паскале