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

@Juliannna · Регистрация: 25.09.2019

Author24 — интернет-сервис помощи студентам

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

@Puporev · 07.10.2019, 12:47

Pascal

uses crt;
var a,k,s:integer;
begin
clrscr;
writeln('Вводите целые числа пока их сумма не превысит 100');
k:=0;
s:=0;
repeat
readln(a);
k:=k+1;
s:=s+a;
until s>100;
write('s=',s,'  k=',k);
readln
end.

@Juliannna 0 / 0 / 0 Регистрация: 25.09.2019 Сообщений: 21
		1
	Найти количество введённых чисел, когда их сумма превысила 100 07.10.2019, 12:20. Показов 1369. Ответов 1 Метки нет (Все метки) С клавиатуры вводятся числа и последовательно суммируются. Найти количество введённых чисел, когда их сумма превысила 100. 0

	07.10.2019, 12:47