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

Question

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

Answer 1

Var
  s, x: integer;
begin
  s := 0;
  repeat 
   readln(x);
   if x <= 100 then<br>       s := s + x;
  until x > 100;
  writeln(s);
end.

Comments

А с While можете написать?

---

могу

---

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