Нужно решить задачу на ПК, пожайлуста (желательно - вопрос №17908881 от аленкатв3 07.10.2021 12:19

Question

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

аленкатв3 · 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.