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

Цикл Until, Pascal

Question

Меркурий

24 июля, 08:17

+4

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