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

Question

Информатика

Евсей

5 марта, 05:00

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

+3

Ответы (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.