Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
vados07
0 / 0 / 5
Регистрация: 06.12.2012
Сообщений: 27
#1

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

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

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

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

Найти сумму тех элементов, которые кратны данному К
В массив A занесены натуральные числа. Найти сумму тех элементов, которые...

Найти сумму тех чисел, которые кратны трем и больше 5
1.даны четыре целых числа.Найти сумму тех из них,которые кратны трем и больше...

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

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

6
Puporev
Модератор
54134 / 41767 / 28876
Регистрация: 18.05.2008
Сообщений: 98,305
12.12.2012, 18:20 #2
vados07, Ты вообще дуб? Я весь вечер буду переносить твои темы?
0
vados07
0 / 0 / 5
Регистрация: 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
Модератор
54134 / 41767 / 28876
Регистрация: 18.05.2008
Сообщений: 98,305
12.12.2012, 18:33 #5

Не по теме:

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

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

Не по теме:

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

.
Сори, да Был не прав Там код ля Паскаля к первому условию.
0
Puporev
Модератор
54134 / 41767 / 28876
Регистрация: 18.05.2008
Сообщений: 98,305
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
Привет! Вот еще темы с решениями:

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

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

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

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


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

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

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