Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
lovepuga
0 / 0 / 0
Регистрация: 13.01.2015
Сообщений: 5
1

Вывести все элементы последовательности, являющиеся трехзначными числами, кратными семи

30.04.2015, 11:57. Просмотров 1052. Ответов 1
Метки нет (Все метки)

Напишите программу обработки последовательности целых чисел.
На вход программе сначала подается натуральное число N - кол-во элементов последовательности, N не превосходит 1000. Затем следуют натуральные числа, каждое число в отдельной строке. Каждый элемент последовательности не превосходит 10000.
Программа должна выводить все элементы последовательности, являющиеся трехзначными числами, кратными семи, в порядке, обратном порядке ввода. Если таковых нет, программа выводит число -1
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.04.2015, 11:57
Ответы с готовыми решениями:

Найти члены последовательности, являющиеся удвоенными нечетными числами
6. Даны натуральные числа n, a1,…,an, где n≤1500. Найти члены ak последовательности a1,…,an,...

Найти элементы одномерного массива из N элементов, являющиеся простыми числами
В целочисленном одномерном массиве из N(N\geq 50)элементов есть только один нулевой.Вывести на...

Удалить все элементы массива, являющиеся числами Фибоначчи
1.Дан массив A из N элементов (натуральные числа), удалить все элементы являющимися числами...

Выдать элементы массива, являющиеся простыми числами
Помогите пожалуйста с программой:составить функцию,проверяющую, является ли заданное натуральное...

Заменить все большие семи члены последовательности
Даны натуральное число n, целые числа X1,…,Xn. Заменить все большие семи члены последовательности...

1
JuriiMW
2212 / 1217 / 1666
Регистрация: 10.12.2014
Сообщений: 4,764
30.04.2015, 12:10 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
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
35
36
37
38
var
  stack : array [1..1000] of Integer;
  count : Integer;
 
procedure push(n : Integer);
begin
  Inc(count);
  stack[count] := n;
end;
 
function pop : Integer;
begin
  if count = 0 then
    pop := -1
  else
    begin
      pop := stack[count];
      Dec(count);
    end;
end;
 
var
  N, i, Num : Integer;
begin
  count := 0;
  Write('N = '); ReadLn(N);
  for i := 1 to N do
    begin
      Write(i, ' число = '); ReadLn(Num);
      if (99 < Num) and (Num < 1000) and (Num mod 7 = 0) then push(Num);
    end;
  if count = 0 then
    Write(-1)
  else
    while count > 0 do
      Write(pop, #32);
  WriteLn;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.04.2015, 12:10

Вывести все элементы массива, являющиеся трехзначными числами
Пользователь вводить натуральные числа, и на экран должны вывестись только трехзначные program...

Вывести на экран элементы массива, являющиеся простыми числами
Дан вектор с n целыми эл-тами, 1&lt;=n&lt;=100. Написать программу, которая выводит на экран эле-нты...

Матрица. Вывести элементы матрицы, являющиеся простыми числами
дана целочисленная матрица размера КхР. вывести на печать элементы матрицы, являющиеся простыми...


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

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

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