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

Код 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.

Блок-схема:

ответ:

P AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SPAM

SAM

AM

AMP

AMSP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AMSP

ASP

SP

SPM

SPAM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SP AM

SPAM

SAM

AM

AMP

AMSP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AM SP

AMSP

ASP

SP

SPM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

SPAM

Must Waste More Time...

⌐A & ⌐(⌐A ∨ ⌐B) = ⌐A & (⌐⌐A & ⌐⌐B) = ⌐A & (A & B) = (⌐A & A) & B = 0 & B = 0

⌐(⌐A ∨ ⌐B) = ⌐⌐A & ⌐⌐B   (правило де Моргана для ИЛИ)

⌐⌐A = A   (закон двойного отрицания)

⌐⌐B = B   (закон двойного отрицания)

⌐A & (A & B) =  (⌐A & A) & B   (сочетательный закон для И)

(⌐A & A) = 0   (операция переменной с её инверсией для И)

0 & B = 0   (операция с константой для И)

отрицание (НЕ, ⌐, черта над буквой)

конъюнкция (И, &, ∧)

дизъюнкция (ИЛИ, ∨)

Объяснение: