Question

Посчитать сумму чисел, введённых с клавиатуры. Ввод чисел до тех пор, пока не будет значения 0. ( С предусловием и постусловием ). На языке Паскаль.

Answer 1

Var
   A:integer;
   S:real;
Begin
{Постусловие}
S:=0;
Repeat
Read(A);
S:=S+A;
Until A = 0;
WriteLn('S = ',S);
{Предусловие}
S:=0;
Read(A);
While A<>0 do
   Begin
   S:=S+A;
   Read(A);
   End;
WriteLn('S = ',S);
End.