Найти сумму чисел, а также те из них, которые лежат в интервале от 1 до 5.

@kerixa · Регистрация: 05.01.2017

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

С клавиатуры задается последовательность чисел. Ввод прекращается по отрицательному числу в задаваемой последовательности. Найти сумму чисел, а также те из них, которые лежат в интервале от 1 до 5. Определить количество таких чисел.

@Puporev · 05.01.2017, 20:23

Pascal

var a,s,k:integer;
begin
writeln('Введите последовательность целых чисел, окончание ввода отрицательное число');
s:=0;
k:=0;
repeat
readln(a);
s:=s+a;
if a in[1..5] then k:=k+1;
until a<0;
writeln('Сумма чисел=',s);
writeln('Количество чисел d интервале [1..5]=',k);
end.

@kerixa 0 / 0 / 0 Регистрация: 05.01.2017 Сообщений: 12
		1
	Найти сумму чисел, а также те из них, которые лежат в интервале от 1 до 5. 05.01.2017, 19:33. Показов 3003. Ответов 1 Метки нет (Все метки) С клавиатуры задается последовательность чисел. Ввод прекращается по отрицательному числу в задаваемой последовательности. Найти сумму чисел, а также те из них, которые лежат в интервале от 1 до 5. Определить количество таких чисел. 0

	05.01.2017, 20:23

Найти сумму чисел, а также те из них, которые лежат в интервале от 1 до 5.

Решение