Вложенные циклы. Найти количество и сумму членов данной последовательности, что делятся на заданное число.

@Artemrusin · Регистрация: 09.05.2014

Всем привет!
Помогите пожалуйста решить задачу в Pascal:
Дано натуральное число n и целые числа x, a1, a2, …, an. Найти количество и сумму
Тех членов данной последовательности что делятся на x.
Заранее спасибо!

@code-n'-help · 09.05.2014, 21:38

Pascal

var n,x,i,a:word;
     sum:longword;
     counter:word;
begin
readln(n,x);
sum:=0;
counter:=0;
for i:=1 to n do
begin
read(a);
if a mod x =0 
then begin 
  sum:=sum+a;
  inc(counter);
end;
end;
writeln('summa ravna:',sum,'kolvo chisel: ',counter);
end.

@Artemrusin 0 / 0 / 0 Регистрация: 09.05.2014 Сообщений: 7
		1
	Вложенные циклы. Найти количество и сумму членов данной последовательности, что делятся на заданное число. 09.05.2014, 20:27. Показов 1062. Ответов 1 Метки нет (Все метки) Всем привет! Помогите пожалуйста решить задачу в Pascal: Дано натуральное число n и целые числа x, a1, a2, …, an. Найти количество и сумму Тех членов данной последовательности что делятся на x. Заранее спасибо! 0

Опции темы

Вложенные циклы. Найти количество и сумму членов данной последовательности, что делятся на заданное число.

Решение