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

Даны целые числа с1, ., с45. Даны целые числа с1, ., с45. Имеется ли в последовательности два идущих подряд нулевых

25.11.2021, 21:37. Показов 567. Ответов 3

Студворк — интернет-сервис помощи студентам
Даны целые числа с1, ..., с45. Имеется ли в последовательности два идущих подряд нулевых члена. Распечатать их номера или ответ «не имеются».
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.11.2021, 21:37
Ответы с готовыми решениями:

C# - Даны целые числа a1, …, an. Имеются ли в данной последовательности три идущих подряд нулевых члена
Помогите найти ошибку в программе: static void Main(string args) { Console.Write("Введите количество...

Даны целые числа с 1 до 95. Имеются ли два подряд нулевых элемента?
Даны целые числа с 1 до 95. Имеются ли два подряд нулевых элемента?

Даны целые числа m, a1, a2, a3...a15 Найти два числа из последовательности, сумма которых составляет m
Приветствую! Помогите пожалуйста с задачей. Даны целые числа m, a1, a2, a3 ... a15 Найти два числа из последовательности, сумма...

3
 Аватар для XzzzX
405 / 280 / 120
Регистрация: 09.07.2021
Сообщений: 1,016
Записей в блоге: 1
25.11.2021, 21:48
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
##
var i:= 1;
while i <= 45 do
  begin
    if readinteger = 0 then
      if readinteger = 0 then
        begin
          print(i, i+1);
          halt;
        end
      else
        i+= 1;
      
    i+= 1;
  end;
  
print(newline+'не имеются');
0
0 / 0 / 0
Регистрация: 25.11.2021
Сообщений: 2
25.11.2021, 22:16  [ТС]
а можно сделать это через while?
0
 Аватар для XzzzX
405 / 280 / 120
Регистрация: 09.07.2021
Сообщений: 1,016
Записей в блоге: 1
26.11.2021, 06:53
Цитата Сообщение от GG_pvp Посмотреть сообщение
через while?
а тут через что сделано по вашему?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.11.2021, 06:53
Помогаю со студенческими работами здесь

Даны натуральные числа n, m, (m < n), целые числа a1,…, an. Получить число отрицательных членов последовательности a1,…, am и число нулевых
Даны натуральные числа n, m, (m &lt; n), целые числа a1,…, an. Получить число отрицательных членов последовательности a1,…, am и...

Имеются ли в последовательности два идущих подряд нулевых числа или три подряд одинаковых числа
44. Даны целые числа k, k,...,k (m=20). Имеются ли в последовательности два идущих подряд нулевых числа или три подряд одинаковых числа

Даны целые числа A и B (A < B). Вывести все целые числа от A до B, при этом число A+n должно выводиться n+1 раз
Даны целые числа A и B (A &lt; B). Вывести все целые числа от A до B включительно; при этом число A должно выводиться 1 раз, число A + 1 ...

Даны целые числа а1, ., а45. Получить число отрицательных членов последовательности а1, ., а35 и число нулевых члено
Даны целые числа а1, ..., а45. Получить число отрицательных членов последовательности а1, ..., а35 и число нулевых членов всей...

Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом каждое
Даны целые положительные числа A и B (A &lt; B). Вывести все целые числа от A до B включительно; при этом каждое число должно выводиться ...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
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 на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru