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

С++ для начинающих

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

Определить, есть ли в последовательности хотя бы одно число, кратное 7 - C++

29.05.2014, 03:40. Просмотров 837. Ответов 2
Метки нет (Все метки)

не лезет в голову программа,хоть убейте,остальное всё сделал,осталась одна,помогите,будь добры.
Дана непустая последовательность целых чисел, оканчивающаяся числом - 1 . Определить, есть ли в последовательности хотя бы одно число, кратное 7. В случае положительного ответа определить порядковый номер первого из них.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var a,i,n:integer;
begin
clrscr;
writeln('Введите последовательность целых чисел, окончание ввода -1');
n:=0;
i:=0;
repeat
readln(a);
i:=i+1;
if(a mod 7=0)and(n=0) then n:=i;
until a=-1;
if n=0 then write('Нет чисел, кратных 7')
else writeln('Есть числа, кратные 7, номер первого из них=',n);
readln
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2014, 03:40
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Определить, есть ли в последовательности хотя бы одно число, кратное 7 (C++):

Выяснить, есть ли среди чисел i^3 - 17*i*N^2+N^3 (i=1,...,N) хотя бы одно число, кратное двум и не кратное трем - C++
Дано натуральное число N. Выяснить, есть ли среди чисел i^3- 17*i*N^2+N^3 (i=1,2,...,N) хотя бы одно число, кратное двум и не кратное трем....

Есть ли среди чисел хотя бы одно, кратное двум и не кратное трем. - C++
Дано натуральное число N. Выяснить, есть ли среди чисел 3 2 3 i - 17 * i * N + N (i=1,2,...,N) хотя бы одно число, кратное двум и не...

Определить, есть ли в строке(string) хотя бы одно число и определить есть ли в тексте хотя бы два числа. - C++
Помогите пожалуйста с заданиями. Определить, есть ли в строке(string) хотя бы одно число. Определить есть ли в тексте хотя бы два числа.

Выяснить есть ли в массиве хотя бы одно нечетное отрицательное число и определить его местонахождение - C++
Выяснить есть ли в массиве хотя бы одно нечетное отрицательное число и определить его местонахождение. я так понимаю что это индекс у...

Выяснить, имеется ли среди чисел последовательности хотя бы одно число Фибоначчи - C++
Прошу помочь с составлением программы: Даны целые числа a1, ..., an. Выяснить, имеется ли среди чисел последовательности хотя бы одно...

В последовательности натуральных чисел определить минимальное число, кратное 3 - C++
Напишите программу которая в последовательности натуральных чисел определяет МИНИМАЛЬНОЕ число, кратное 3. Программа получает НА ВХОД...

2
GuGo1991
267 / 261 / 93
Регистрация: 02.08.2012
Сообщений: 609
29.05.2014, 05:33 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
_alucard_, обязательно переводить?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#include <iostream>
#include <conio.h>
#include <vector>
int main()
{
    int num = 0, counter = 0, index;
    bool check = false;
    std::vector<int> arr;
    std::cout << "Type numbers (-1 to end)\n";
    while(num != -1)
    {
        std::cout << counter << ": ";
        std::cin >> num;
        arr.push_back(num);
        counter++;
    }
    
    for(int i = 0; i < arr.size(); i++)
    {
        if(!(arr[i] % 7))
        {
            index = i;
            check = true;
            break;
        }
    }
    
    (check) ? std::cout << "There are such numbers.\nFirst is by index " 
                        << index << std::endl
            : std::cout << "No such numbers\n";
    
    getch();
    return 0;
}
0
_alucard_
0 / 0 / 0
Регистрация: 29.05.2014
Сообщений: 3
29.05.2014, 05:40  [ТС] #3
ну она на с++ нужна мне)на паскале то изи накатать её,а вот на сях не шло в голову никак

Добавлено через 2 минуты
спасибо огромное,сейчас разбираться буду с вашим вариантом)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2014, 05:40
Привет! Вот еще темы с ответами:

Определить, есть ли среди целых чисел A, B, C хотя бы одно парное - C++
Определить, есть ли среди целых чисел A, B, C хотя бы одно парное. Нужно набрать в Dev C++ помогите пожалуйста

Определить, есть ли среди заданных целых чисел A, B, C, D хотя бы одно нечётное - C++
Выполнить задание, используя условные операторы Определить есть ли среди заданных целых чисел A, B, C, D хотя бы одно нечётное.

Переменной t присвоить значение истина, если в одномерном массиве есть хотя бы одно число 101 - C++
1.Переменной t присвоить значение истина, если в одномерном массиве есть хотя бы одно число 101.

Определить, содержит ли последовательность хотя бы одно простое число - C++
Вводится последовательность из N целых положительных элемен-тов. Определить, содержит ли последовательность хотя бы одно простое чис¬ло....


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

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

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