Question

С клавиатуры последовательно вводятся действительные числа. Вычислить их сумму до первого введённого отрицательного числа. Через паскаль. Пожалуйста быстрее!!! ​

Answer 1

var num,s :real;

begin

 s:= 0;

 while true do

 begin

   write('Введите число: ');

   readln(num);

   if num >= 0 then s:= s + num

               else break;

 end;

 writeln('Сумма =  ', s)

end.