Question

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

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.

Answer 2

Напишите к этой задаче, пожалуйста.