Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
1 / 1 / 0
Регистрация: 15.09.2015
Сообщений: 17

Вывести все элементы массива, которые содержат цифру «2»

23.09.2015, 12:08. Показов 1686. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан массив из 20 значений, вывести все значения, в которых есть число «2»

прошу помощи
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
23.09.2015, 12:08
Ответы с готовыми решениями:

Изъять из файла все элементы, которые содержат хотя бы одну парную цифру, в ином случае - уменьшить все в 2 раза
Изъять из файла все элементы, которые содержат хотя бы одну парную цифру, в ином случае - уменьшить...

Изъять из файла все элементы, которые содержат хотя бы одну четную цифру, в ином случае - уменьшить все в 2 раза
Файл F генерируется из случайных чисел, размерность файла указали.Изъять из файла все элементы,...

Найти и вывести на экран все двузначные числа, которые содержат цифру 3. Определить их количество и сумму.
Найти и вывести на экран все двузначные числа, которые содержат цифру 3. Определить их количество и...

6
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
23.09.2015, 12:14
AprilNevada, наверное, всё-таки цифра "2", а не число "2".

Добавлено через 5 минут
Подправьте под свое условие:
Вывести на экран числа, в которых встречается цифра 8,9,6
0
1 / 1 / 0
Регистрация: 15.09.2015
Сообщений: 17
23.09.2015, 12:32  [ТС]
увы, она не работает
0
 Аватар для vovachuk
13 / 13 / 18
Регистрация: 08.01.2015
Сообщений: 53
23.09.2015, 13:14
так число 2 или цифра?
0
1 / 1 / 0
Регистрация: 15.09.2015
Сообщений: 17
23.09.2015, 13:17  [ТС]
цифра
0
 Аватар для vovachuk
13 / 13 / 18
Регистрация: 08.01.2015
Сообщений: 53
23.09.2015, 14:49
если числа вводятся то вот
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses
  crt;
 
const
  N = 20;
 
var
  a: array[1..N] of integer;
  i, j: integer;
  b: string;
 
begin
  for i := 1 to N do
    readln(a[i]);
  for i := 1 to N do 
  begin
    str(a[i], b);
    for j := 1 to length(b) do
      if b[j] = '2' then write(a[i], ' ');
  end;
end.
если рандомно, то
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses
  crt;
 
const
  N = 20;
 
var
  a: array[1..N] of integer;
  i, j: integer;
  b: string;
 
begin
  for i := 1 to N do
    a[i]:=random(999)+1;
  for i := 1 to N do 
  begin
    str(a[i], b);
    for j := 1 to length(b) do
      if b[j] = '2' then write(a[i], ' ');
  end;
end.
1
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
23.09.2015, 15:10
Pascal
1
2
3
4
Function Check2(A : Longint) : Boolean;
Begin
  If A>0 then Check2:=((A mod 10)=2) or Check2(A div 10) else Check2:=False;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.09.2015, 15:10
Помогаю со студенческими работами здесь

Найти все двузначные числа, которые делятся на n или содержат цифру n
Найти все двузначные числа, которые делятся на n или содержат цифру n

Найти все двузначные числа, которые делятся на n или содержат цифру n
Найти все двузначные числа, которые делятся на n или содержат цифру n

Найти все натуральные двухзначные числа, которые делятся на n или содержат цифру n
Найти все натуральные двухзначные числа, которые делятся на n или содержат цифру n. Где n=2. Так...

Постусловие: вывести те числа в интервале 100 .. 500, которые содержат заданную цифру M
Из чисел от 100 до 500 вывести те,которые содержат цифру M M - вводится с клавиатуры

Найти количество элементов массива, которые не содержат в своей записи цифру 5
Дан массив натуральных чисел А(N), значения элементов которого лежат в диапазоне . Найти: а)...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
Контроль уникальности заводского номера - вариант №2
Maks 24.03.2026
В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++
8Observer8 24.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости
kumehtar 23.03.2026
Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения.
anaschu 23.03.2026
geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
Контроль уникальности заводского номера - вариант №1
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru