Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/40: Рейтинг темы: голосов - 40, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 26.04.2016
Сообщений: 1

Найти в последовательности натуральных чисел количество таких чисел, которые кратны 4 и оканчиваются на 2

28.09.2017, 19:34. Показов 7867. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Напишите программу, которая в последовательности натуральных чисел определяет количество таких чисел, которые кратны 4 и оканчиваются на 2. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число: количество чисел, кратных 4 и оканчивающихся на 2.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
28.09.2017, 19:34
Ответы с готовыми решениями:

Среди всех чисел из интервала от А до Б, которые кратны 3, найти количество таких, у которых квадрат суммы цифр равен произведению его цифр.
Среди всех чисел из интервала от А до Б, которые кратны 3, найти количество таких, у которых квадрат суммы цифр равен произведению его...

Найти все двузначные числа, которые делятся на n или оканчиваются на n. Сколько таких чисел?
Найти все двузначные числа, которые делятся на n или оканчиваются на n. Сколько таких чисел? помогите пожалуйста решить,кому не...

Найти восемь первых натуральных чисел, которые оканчиваются и делятся на заданную цифру n
написать программу. 1)Наибольшее из трех чисел x,y,z заменить на (-1).Числа вывести в той же последовательности. 2)Найти и вывести на...

6
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,434
28.09.2017, 20:04
Определить количество чисел, кратных 3 и оканчивающихся на 2
0
Alvin Seville
 Аватар для Соколиный глаз
343 / 273 / 134
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 22
29.09.2017, 13:56
Pascal
1
2
3
begin
  ReadArrInteger(10).Where(x -> (x mod 4 = 0) and (x mod 10 = 2)).Println();
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33379 / 21503 / 8236
Регистрация: 22.10.2011
Сообщений: 36,899
Записей в блоге: 12
29.09.2017, 15:11
Цитата Сообщение от _SpartaK_ Посмотреть сообщение
количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0
, так что
Цитата Сообщение от Volobuev Ilya Посмотреть сообщение
ReadArrInteger(10)
здесь не проходит.
0
Alvin Seville
 Аватар для Соколиный глаз
343 / 273 / 134
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 22
29.09.2017, 15:13
Pascal
1
2
3
begin
  ReadArrInteger(ReadlnInteger('Введите количество элементов:') - 1).Concat(Arr(0)).Where(x -> (x mod 4 = 0) and (x mod 10 = 2)).Println();
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33379 / 21503 / 8236
Регистрация: 22.10.2011
Сообщений: 36,899
Записей в блоге: 12
29.09.2017, 15:21
Нет. Ты опять требуешь ввести число элементов. Делай так:

Pascal
1
2
3
4
begin
  writeln(1.Step().Select(i -> ReadlnInteger).TakeWhile(x -> x <> 0).
    Where(x -> (x mod 4 = 0) and (x mod 10 = 2)).Count);
end.
1
Alvin Seville
 Аватар для Соколиный глаз
343 / 273 / 134
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 22
29.09.2017, 15:30
Ааа, спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
29.09.2017, 15:30
Помогаю со студенческими работами здесь

Вводится N целых чисел, найти количество чисел, которые больше нуля и кратны числу 5
Вводится N целых чисел, найти количество чисел, которые больше нуля и кратны числу 5 ...

Найти количество чётных чисел в исходной последовательности и сумму таких чисел
2) На обработку поступает последовательность из четырёх неотрицательных целых чисел. Нужно написать программу, которая выводит на экран...

2. Квадраты некоторых двухзначных чисел оканчиваются двумя цифрами, которые как раз и составляют исходные числа. Написать программу поиска таких чисел
2. Квадраты некоторых двухзначных чисел оканчиваются двумя цифрами, которые как раз и составляют исходные числа. Написать программу поиска...

Найти и вывести на печать десять первых натуральных чисел, которые кратны a
Помогите, пожалуйста, решить Найти и вывести на печать десять первых натуральных чисел, которые кратны a.

Найти произведение натуральных логарифмов чисел от 6 до 666, которые кратны 3 или 4
,Вычислите произведение натуральных логарифмов чисел от 6 до 666, которые кратны 3 или 4''


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru