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

Question

Информатика

Капик

4 августа, 13:58

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

+2

Ответы (1)

Знаешь ответ?

Симаня · 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 A0 do

Begin

S:=S+A;

Read (A);

End;

WriteLn ('S = ', S);

End.