Цитата:
Сообщение от айдар
С клавиатуры вводятся действительные числа и последовательно
суммируются. Когда их сумма превысит 150, найти количество
введенных чисел и их сумму.
через FOR на bordland paskal
|
Это, конечно, безумно сложно!
Правда, FOR тут ни к селу, ни к городу, уж извините.
Код:
Var
a,Sum:real;
n:word;
Begin
n:=0;
Sum:=0;
Repeat
Write('Next number: ');
Readln(a);
Inc(n);
Sum:=Sum+a;
Until Sum>150;
Sum:=Sum-a;
Dec(n);
Writeln('Sum = ',Sum:0:3);
Writeln('n = ',n);
Readln
End.