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

Question

С клавиатуры вводятся числа вычислить сумму первых вводимых чисел произведение которых не превышает заданного числа В ПАСКАЛЕ

Answer 1

Program name;
var a,b,s,p:real;
begin
write('B = ');readln(b);
write('a = ');readln(a);
s:=0; p:=a;
while p begin
 s:=s+a;
 write('a = ');
 readln(a);
 p:=p*a;
 end;
writeln('s = ',s);
end.

Пример:
B = 10000
a = 5
a = 8
a = 7
a = 4
a = 6
a = 2
s = 30

Comments

ЧЕЛОВЕЧЕСКОЕ Спасибо большое!!! :)

---

Пожалуйста.