усовершенствовать алгоритм с циклом

@qwerty122 · Регистрация: 06.03.2011

Author24 — интернет-сервис помощи студентам

Есть N целых чисел. Нужно складывать их до тех пор, пока они их сумма НЕ будет превышать лимит.
Через цикл repeat или while получается так, что при выходе из цикла число превышает заданный лимит.
Например:

Pascal

a:=10;
c:=0;
while (c<a) do
c:=c+3;

на выходе получается 12, а нужно чтобы было 9.
как такое реализовать?

@versa4e · 06.12.2011, 16:51

Pascal

var
  n,s,limit:integer;
begin
  s:=0;
  limit:=10;
  while s+3<limit do
    s:=s+3;
  write(s);  
end.

	06.12.2011, 16:51