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

Question

Информатика

Алексина

15 декабря, 06:22

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

+5

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