Найти сумму тех чисел, которые имеют остаток от деления на некоторое число 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.
Объяснение кода листинга программы
- Создается переменная
var
с типамиinteger
дляi
,m
,n
,chislo
,sum
иkol
. - Выводится сообщение для ввода количества чисел.
- Вводится число
n
с помощью функцииreadln()
. - Выводится сообщение для ввода числа, на которое будут делиться числа.
- Вводится число
m
с помощью функцииreadln()
. - Запускается цикл
for
с переменнойi
от 1 доn
. - Внутри цикла выводится сообщение для ввода числа.
- Считывается число
chislo
с помощью функцииreadln()
. - Проверяется условие
chislo mod m=0
, гдеmod
- оператор модуля. - Если условие истинно, то к переменной
sum
прибавляется числоchislo
, а счетчикkol
увеличивается на единицу. - После окончания цикла выводится сообщение с результатами вычислений.
- Конец программы.