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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Istream_iterator back_inserter http://www.cyberforum.ru/cpp-beginners/thread1192066.html
привет всем ! есть такой код vector<int> vec; copy(istream_iterator<int>(cin), istream_iterator<int>(), (vec)); for(int i = 0; i < vec.size(); i++) cout<<vec; он почему не...
C++ Тесты на знание основ C++ Здравствуйте. Помогите найти тестовые задания по основам программирования на языке с++. Нужно много тестовых заданий (порядка 200-300), по этому подходят все варианты, желательно с ответами. Может... http://www.cyberforum.ru/cpp-beginners/thread1192065.html
Условный оператор C++
1)Составить программу для вычисления значения функции f(x) :http://higgs.rghost.ru/55956431/image.png 2)«Узник замка Иф». За многие годы заточения узник замка Иф проделал вилкой в стене...
Добавление элемента в список C++
Здравствуйте. Написал код в котором имеются функции добавления элемента в конец списка, вывод первого элемента в списке, удаление определенного элемента из списка и вывод всего списка. В задании...
C++ Нужна курсовая по праву социального обеспечения http://www.cyberforum.ru/cpp-beginners/thread1192055.html
Не меньше 42 страниц, 2013 года
C++ Quicksort, отсортировать элементы массива, стоящие на четных позициях, чтобы они располагались по убыванию Имеется одномерный массив длиной N = 50. Отсортировать методом быстрой сортировки элементы массива, стоящие на четных позициях, так, чтобы они располагались по убыванию. Заполнение массива оператором... подробнее

Показать сообщение отдельно
_alucard_
0 / 0 / 0
Регистрация: 29.05.2014
Сообщений: 3

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

29.05.2014, 03:40. Просмотров 821. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru