С клавиатуры вводятся числа вычислить сумму первых вводимых чисел произведение которых не превышает заданного числа В ПАСКАЛЕ
С клавиатуры вводятся числа вычислить сумму первых вводимых чисел произведение которых не превышает заданного числа В ПАСКАЛЕ
Гость
Ответ(ы) на вопрос:
Гостьprogram name;
var a,b,s,p:real;
begin
write('B = ');readln(b);
write('a = ');readln(a);
s:=0; p:=a;
while p