Найти количество и сумму членов последовательности, делящихся на заданное число

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

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

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

@Alex_DeaD · 10.05.2014, 00:51

Сообщение от Artemrusin

Даны натуральные числа n, m, целый числа a1, a2, …, an

т.е. дан числовой ряд вида:1,2,3..An?

@Kind_predatoR · 10.05.2014, 01:00

Pascal

var
  n, m,i, col, sum: integer;
  a: array of integer;
 
begin
  sum:=0;
  col:=0;
  read(n, m);
  setLength(a, n);
  randomize; //это можно убрать и где присваивается в массив написать read
  for i := 0 to n - 1 do
  begin
    a[i] := random(51);
    if ((a[i] mod m) = 0) then 
    begin
      sum := sum + a[i];
      inc(col);
    end;
  end;
  writeln('sum= ',sum);
  writeln('col= ',col);
end.

Как объяснил, так и решили. Пиши если что.

@Alex_DeaD · 10.05.2014, 01:08

Вот решение:

Код

var
  a: array[0..100] of integer;
  i, n, m, k, sum: integer;

begin
  Write('Введите N=');
  readln(n);
  Write('Введите M=');
  readln(m);
  for i := 1 to n do 
  begin
    a[i] := i;
  end;
  k := 0;
  sum := 0;
  write('Натуральные числа:');
  for i := 1 to n do 
  begin
    write(a[i],' ');
    if a[i] mod m = 0 then begin
      k := k + 1;
      sum := sum + a[i];
    end;
  end;
  writeln;
  writeln('Количество чисел делящихся на m=', k);
  writeln('Сумма чисел которые делятся на m=', sum);
end.

@Artemrusin · 20.05.2014, 19:13 **[ТС]**

Спасибо большое

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

@Alex_DeaD 6 / 6 / 6 Регистрация: 09.12.2013 Сообщений: 104
	10.05.2014, 00:51	2
	Сообщение от Artemrusin Даны натуральные числа n, m, целый числа a1, a2, …, an т.е. дан числовой ряд вида:1,2,3..An? 0

@Artemrusin 0 / 0 / 0 Регистрация: 09.05.2014 Сообщений: 7
	20.05.2014, 19:13 [ТС]	5
	Спасибо большое 0

Опции темы