Question

Нужно решить задачу на ПК, пожайлуста срочно(желательно с помощью программы ''Паскаль'') :

Плюсуйте натуральные числа до тех пор, пока их сума меньше за K.

Answer 1

var s, i, k, x :integer;

begin

s := 0;

write('k=');

readln(k);

while (s < k) do

begin

readln(x);

s := s + x;

end;

writeln('Сумма стала больше числа k, она равна: ', s);

end.