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

taniaovchinnik taniaovchinnik    1   12.04.2021 12:40    0

Ответы
olyailysha31 olyailysha31  12.05.2021 12:40

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика