Помогите!!! Составьте блок-схему и программу для решения задачи , в которой требуется...

Question

Помогите!!!
Составьте блок-схему и программу для решения задачи , в которой требуется вводить с клавиатуры числа и подсчитывать их сумму , до первого введенного отрицательного числа

Answer 1

Код Pascal:

Var
   S,A:real;
Begin
S:=0;
WriteLn('Введите числа: ');
Read(A);
While A>=0 do
   Begin
   S:=S+A;
   Read(A)
   End;
WriteLn('S = ',S);
End.

Блок-схема:

---

Comments

Спасибо большое!)