Нужно решить задачу на ПК, пожайлуста срочно(желательно с помощью программы ''Паскаль'') :
Плюсуйте натуральные числа до тех пор, пока их сума меньше за K.
Плюсуйте натуральные числа до тех пор, пока их сума меньше за K.
More Questions From This User See All
Answers & Comments
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.