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

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

Восстановить пароль Регистрация
 
_alucard_
0 / 0 / 0
Регистрация: 29.05.2014
Сообщений: 3
29.05.2014, 03:40     Определить, есть ли в последовательности хотя бы одно число, кратное 7 #1
не лезет в голову программа,хоть убейте,остальное всё сделал,осталась одна,помогите,будь добры.
Дана непустая последовательность целых чисел, оканчивающаяся числом - 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.
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2014, 03:40     Определить, есть ли в последовательности хотя бы одно число, кратное 7
Посмотрите здесь:

C++ Определить, содержит ли последовательность хотя бы одно простое число
Определить, содержит ли последовательность хотя бы одно совершенное число C++
C++ Выяснить, имеется ли среди чисел последовательности хотя бы одно число Фибоначчи
Определить, есть ли среди заданных целых чисел A, B, C, D хотя бы одно нечётное C++
C++ Составить одномерный массив B из номеров строк двумерного массива, в которых есть хотя бы одно нечетное число
Определить, есть ли в строке(string) хотя бы одно число и определить есть ли в тексте хотя бы два числа. C++
C++ Есть ли среди чисел хотя бы одно, кратное двум и не кратное трем.
Выяснить, есть ли среди чисел i^3 - 17*i*N^2+N^3 (i=1,...,N) хотя бы одно число, кратное двум и не кратное трем C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
GuGo1991
267 / 261 / 93
Регистрация: 02.08.2012
Сообщений: 609
29.05.2014, 05:33     Определить, есть ли в последовательности хотя бы одно число, кратное 7 #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;
}
_alucard_
0 / 0 / 0
Регистрация: 29.05.2014
Сообщений: 3
29.05.2014, 05:40  [ТС]     Определить, есть ли в последовательности хотя бы одно число, кратное 7 #3
ну она на с++ нужна мне)на паскале то изи накатать её,а вот на сях не шло в голову никак

Добавлено через 2 минуты
спасибо огромное,сейчас разбираться буду с вашим вариантом)
Yandex
Объявления
29.05.2014, 05:40     Определить, есть ли в последовательности хотя бы одно число, кратное 7
Ответ Создать тему
Опции темы

Текущее время: 10:53. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru