Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
vados07
0 / 0 / 0
Регистрация: 06.12.2012
Сообщений: 27
#1

Найти количество тех членов последовательности, которые кратны 5 и не кратны 7. - Delphi

12.12.2012, 18:17. Просмотров 691. Ответов 6
Метки нет (Все метки)

1. Найти количество тех членов последовательности, которые кратны 5 и не кратны 7.
2. Вычислить среднее арифметическое всех положительных нечетных членов последовательности.
все это объединить надо в одну программу.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2012, 18:17
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти количество тех членов последовательности, которые кратны 5 и не кратны 7. (Delphi):

Получить сумму тех чисел данной последовательности, которые кратны 5 - Delphi
дано целые числа а1, ., а 50. получить сумму тех чисел данной последовательности, которые кратны 5

Получить сумму тех чисел данной последовательности, которые кратны 5. - Delphi
даны целые числа а1,...,а50. Получить сумму тех чисел данной последовательности, которые кратны 5.

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

В массив A[N] занесены натуральные числа. Найти сумму тех элементов, которые кратны данному числу K - Delphi
В массив A занесены натуральные числа. Найти сумму тех элементов, которые кратны данному числу K. Добавлено через 4 минуты Ребят...

Найти количество и сумму тех членов последовательности, которые делятся на 5 и не делятся на 7 - Delphi
дано n и последовательность чисел a1,a2,a3 ... an.(цифры и n рядом из а это индексы).Найти количество и сумму тех членов...

В исходной последовательности подсчитать количество тех членов, которые при делении на P дают в остатке Q - Delphi
И ещё раз здравствуйте! А помогите пожалуйста. Вот задание: В исходной последовательности подсчитать количество тех членов, которые при...

6
Puporev
Модератор
52847 / 40658 / 13913
Регистрация: 18.05.2008
Сообщений: 94,385
12.12.2012, 18:20 #2
vados07, Ты вообще дуб? Я весь вечер буду переносить твои темы?
0
vados07
0 / 0 / 0
Регистрация: 06.12.2012
Сообщений: 27
12.12.2012, 18:26  [ТС] #3
Я первый раз задания выкладываю... теперь понял как правильно темы создавать.
0
Freelancer55
0 / 0 / 0
Регистрация: 12.12.2012
Сообщений: 3
12.12.2012, 18:28 #4
Цитата Сообщение от vados07 Посмотреть сообщение
1. Найти количество тех членов последовательности, которые кратны 5 и не кратны 7.

Delphi
1
2
3
4
5
6
7
8
 k:=0;
 for i:=1 to N do    // N-количество членов 
 Begin
 If  ((A[i]mod  5)=0 )and   ((A[i]mod 7 )<>0) then 
 k:=k+1;
 end;
 writeLn ('Количество членов кратных 5 и не кратных 7  равно {',k,'}');
 end.
Вродетак, если не шибаюсь.
0
Puporev
Модератор
52847 / 40658 / 13913
Регистрация: 18.05.2008
Сообщений: 94,385
12.12.2012, 18:33 #5

Не по теме:

Еще и помощничек выискался безрукий..

.
1
Freelancer55
0 / 0 / 0
Регистрация: 12.12.2012
Сообщений: 3
12.12.2012, 18:34 #6
Цитата Сообщение от Puporev Посмотреть сообщение

Не по теме:

Еще и помощничек выискался безрукий..

.
Сори, да Был не прав Там код ля Паскаля к первому условию.
0
Puporev
Модератор
52847 / 40658 / 13913
Регистрация: 18.05.2008
Сообщений: 94,385
12.12.2012, 18:41 #7
Цитата Сообщение от Freelancer55 Посмотреть сообщение
Там код ля Паскаля к первому условию.
Да я про теги кода....
0
12.12.2012, 18:41
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2012, 18:41
Привет! Вот еще темы с ответами:

Определить количество элементов массива, которые кратны 7 - Delphi
Дан числовой массив А состоящий из n натуральных чисел. Определите количество элементов массива, являющихся кратным 7

Дана матрица. Найти сумму чисел в тех строках, все элементы которых кратны 5 - Delphi
Двна матрица MxN. Найти сумму чисел в тех строках, все элементы которых кратны 5.

Найти суму всех целых чисел, больших -50 и меньших 500, которые кратны 3 и 6 и заканчиваются на 4 или 2 - Delphi
ннайти суму всех целых чисел ,больших -50 и меньших 500 которые кратны 3 и 6 и заканчиваются на 4 или 2

Найти количество и сумму членов последовательности, которые делятся на 5 и не делятся на 7 - Delphi
Дано n и последовательность чисел а1,а2,а3,...,аn. Найти количествво и сумму членов последовательности которые делятся на 5 и не делятся на...


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

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

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