Найти количество введенных чисел, когда их сумма превысила 100

@Pele · Регистрация: 14.02.2012

с клавиатуры вводятся числа и последовательно суммируются.найти количество введенных чисел, когда их сумма превысила 100.

@APALoff · 25.12.2013, 11:33

Pascal

...
N:=0; summ:=0;
While summ<=100 do
Begin
  Readln(A);
  Summ:=summ+A;
  Inc(N);
End;
Writeln(N);
...

@Pele 0 / 0 / 0 Регистрация: 14.02.2012 Сообщений: 25
		1
	Найти количество введенных чисел, когда их сумма превысила 100 25.12.2013, 10:56. Показов 1864. Ответов 1 Метки нет (Все метки) с клавиатуры вводятся числа и последовательно суммируются.найти количество введенных чисел, когда их сумма превысила 100. 0

	25.12.2013, 11:33

Решение