Паскаль. написать программу которая запрашивает ряд чисел и считает их сумму. количество чисел не ограничено. при нажатии цифры "1" - ввод чисел прекращается.

Question

Информатика

Галуха

8 сентября, 18:15

Паскаль. написать программу которая запрашивает ряд чисел и считает их сумму. количество чисел не ограничено. при нажатии цифры "1" - ввод чисел прекращается.

+2

Ответы (1)

Знаете ответ на вопрос?

Корнила · Answer 1

Var

number: integer;

sum: integer;

begin

repeat

write ('number = ') ;

readln (number) ;

sum : = sum + number;

until number = 1;

writeln ('Сумма = ', sum) ;

end.