Найти сумму тех чисел, которые имеют остаток от деления на некоторое число m, равный 0 - Pascal

Узнай цену своей работы

Формулировка задачи:

помогите плиз

Дано n вещественных чисел. Найти сумму тех из них, которые имеют остаток от деления на некоторое число m, равный 0. Посчитать количество таких элементов.

Решение задачи: «Найти сумму тех чисел, которые имеют остаток от деления на некоторое число m, равный 0»

textual
Листинг программы
var
i,m,n,chislo,sum,kol:integer;
begin
writeln('vvedite kolichestvo chisel');
readln(n);
writeln('vvedite chislo, na kotoroe budut delitsya chisla');
readln(m);
for i:=1 to n do
  begin
    writeln('vvedite chislo');
      readln(chislo);
             if chislo mod m=0 then 
                       begin
                       sum:=sum+shislo;
                       inc(kol);
                       end;
  end;
writeln('summa=',sum);
writeln('kolichestvo',kol);
end.

Объяснение кода листинга программы

  1. Создается переменная var с типами integer для i, m, n, chislo, sum и kol.
  2. Выводится сообщение для ввода количества чисел.
  3. Вводится число n с помощью функции readln().
  4. Выводится сообщение для ввода числа, на которое будут делиться числа.
  5. Вводится число m с помощью функции readln().
  6. Запускается цикл for с переменной i от 1 до n.
  7. Внутри цикла выводится сообщение для ввода числа.
  8. Считывается число chislo с помощью функции readln().
  9. Проверяется условие chislo mod m=0, где mod - оператор модуля.
  10. Если условие истинно, то к переменной sum прибавляется число chislo, а счетчик kol увеличивается на единицу.
  11. После окончания цикла выводится сообщение с результатами вычислений.
  12. Конец программы.

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы