С клавиатуры вводятся числа вычислить сумму первых вводимых чисел произведение которых не превышает заданного числа В ПАСКАЛЕ
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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
