Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Kristino4ka
0 / 0 / 0
Регистрация: 04.11.2009
Сообщений: 5
1

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

15.11.2009, 12:17. Просмотров 1189. Ответов 3
Метки нет (Все метки)

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

Дано n вещественных чисел. Найти сумму тех из них, которые имеют остаток от деления на некоторое число m, равный 0. Посчитать количество таких элементов.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.11.2009, 12:17
Ответы с готовыми решениями:

Произведение тех чисел, которые в двоичном представлении имеют неравное число нулей и единиц.
Текстовый файл содержит несколько целых чисел, найти произведение тех чисел, которые в двоичном...

Найти сумму и количество тех элементов массива, которые при делении на 7 дают остаток 1, 2 или 5
помогите пожалуйста не могу решить 6. Даны массивы А(30), В(20), С(15) целых чисел. Найти сумму и...

Найти сумму квадратов тех чисел, которые не превосходят Р и сумму кубов тех чисел, которые превосходят.
Пусть дана последовательность a1, ..., а10. Найти сумму квадратов тех чисел, которые не превосходят...

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

Найти сумму чисел, у которых остаток от деления на 7 такой же, как и у b при делении на 7
Сумма чисел, у которых остаток от деления на 7 такой же, как и у b при делении на 7 в диапозоне ,...

3
кот Бегемот
Платежеспособный зверь
8583 / 3996 / 1568
Регистрация: 28.10.2009
Сообщений: 10,469
15.11.2009, 12:23 2
Цитата Сообщение от Kristino4ka Посмотреть сообщение
помогите плиз

Дано n вещественных чисел. Найти сумму тех из них, которые имеют остаток от деления на некоторое число m, равный 0. Посчитать количество таких элементов.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
i,m,n,chislo,sum: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 sum:=sum+shislo;
end;
writeln('summa=',sum);
end.
1
EvgeniiSp
147 / 137 / 57
Регистрация: 05.06.2009
Сообщений: 310
15.11.2009, 12:27 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program EvgeniiSp;
const
 n = 5;
var
 a: array[1..n] of real;
 sum, i, m: integer;
begin
 sum:=0;
 write('Введиет число m: ');
 readln(m);
 writeln('Введиет числа (нажимая <Enter>): ');
 for i:=1 to n do readln(a[i]);
 for i:=1 to n do if frac(a[i]/m) = 0 then sum:=sum+1;
 writeln('Ответ: ',sum);
end.
1
кот Бегемот
Платежеспособный зверь
8583 / 3996 / 1568
Регистрация: 28.10.2009
Сообщений: 10,469
15.11.2009, 18:23 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Я забыл посчитать количество. Вот уточненный вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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.
0
15.11.2009, 18:23
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.11.2009, 18:23

Даны числовой ряд и некоторое число e>0. Найти сумму тех членов ряда, которые по модулю больше или равны e
Даны числовой ряд и некоторое число e&gt;0. Найти сумму тех членов ряда, которые по модулю больше или...

Найти остаток от целочисленного деления произведения чисел на их сумму
Итак. 1. Составить программу, которая запрашивает у пользователя два целых числа и находит...

Найти произведение тех чисел, которые не имеют в своей записи цифры 3
Вводятся 4х-значные числа. Найти произведение тех из них, которые не имеют к своей записи цифры 3.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru