Нужно решить задачу на ПК, пожайлуста (желательно - вопрос №17907979 от Bonga1337 18.07.2021 10:58

Question

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

Bonga1337 · Answer

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.

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