Последовательно вводятся числа, найти их сумму. Ввод остановить после ввода значения, которое больше 100

Цикл Until, Pascal

Question

Надя

10 июля, 05:43

+3

Ответы (1)

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

Эладка · Answer 1

Var

s, x: integer;

begin

s : = 0;

repeat

readln (x) ;

if x < = 100 then

s : = s + x;

until x > 100;

writeln (s) ;

end.

Последовательно вводятся числа, найти их сумму. Ввод остановить после ввода значения, которое больше 100Цикл Until, Pascal