Пример использования цикла repeat

Пример. Написать программу, которая вводит целые числа с клавиатуры и складывает их до тех пор, пока сумма не станет больше заданного целого числа F. Вывести на экран значение суммы и количество чисел, вошедших в нее.

Решение. Поскольку мы заранее не знаем, сколько чисел составят сумму, то использовать цикл for нельзя. Сначала сумма равна 0 и необходимо добавить хотя бы одно число, а только потом сравнить сумму с заданным F. Поэтому используем цикл Repeat, который позволит сначала выполнить эти действия, а затем проверить, достигла ли сумма заданного числа.

Т.о., конструкция Repeat-until наилучшим образом подходит для решения задачи.

Переменные:

F - заданное число, тип integer.

А - очередное введенное число, тип integer.

S - сумма вводимых чисел, тип integer.

N - количество чисел, вошедших в сумму, тип integer.

Программа.

Program sum;

var f,s,n,a:integer;

begin

write('введите заданное число ');

readln(f);

s:=0;

n:=0;

repeat

write('введитe очередное число ');

readln(a);

s:=s+a;

n:=n+1;

until s>f;

writeln('сумма чисел=',s);

writeln('ее составило ',n,' чисел');

readln;

end.