logo
Войти Регистрация Спроси ai-bota


настя7603
16.01.2021 21:29

Напишите программу, которая осуществляет ввод целых чисел (ввод осуществляется
до тех пор, пока не будет введен ноль) и подсчет введенных отрицательных чисел
язык програмированния паскаль надо

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
STPcopy
STPcopy
18.08.2021 03:53
Как называется узел дерева, который не имеет предков? корневой узел неверный ответ...
лобарант
лобарант
25.07.2020 13:15
С КОДОМ C# КОНСОЛЬ! Класс кредита, реализующий стандартный интерфейс IComparable (получатель кредита, сумма денег, процент, дата получения кредита, срок оплаты кредита) и создайте...
kmelashenko
kmelashenko
06.09.2021 06:38
Даны три монеты. одна из них поддельная и тяжелая. для взвешивания используются весы без гири с двумя чашками. составьте алгоритм для нахождения поддельной монеты....
ПольгаБос
ПольгаБос
05.04.2020 20:38
Напишите названия вирусных программ...
Semenbabinov3
Semenbabinov3
08.06.2022 10:16
постройте иерархическую структуру памяти от большей скорости доступа к меньшей скорости доступа: - регистры - кэш-память - основная память - магнитный диск...
Spale4ik
Spale4ik
05.04.2020 20:38
Составить программу которая формирует массив из 15 случайных чисел принадлежащие промедуткум[-8; 8] и находит сумму элементов массива с нечетеыми значениями и их количество...
asyasing
asyasing
06.03.2021 04:28
Написать примеры для 3-4 отношения....
Rovz
Rovz
05.04.2020 20:38
Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10, затем элементы с чётными индексами удваивает, а элементы с нечётными...
AngelinaMalik05
AngelinaMalik05
29.03.2023 04:04
Сколько букв а б в г д её ж з ий к л м н о п р с т у ф х ц ч ш щ ы ьъ э ю я в стихотворении а. с. пушкина у лукоморья дуб ? !...
luhxor
luhxor
10.08.2022 20:35
Перевести числа в десятичную систему счисления: а) а8 = 341; б) а6 = 341; в) а16 = 341; г) а5 = 34,1; д) а16 = е41а,12. показать полное решение. перевести целые числа из десятичной...
Ответ:
SMKate
14.10.2020 20:11

// PascalABC.NET

begin

 ReadSeqIntegerWhile(p -> p <> 0).Count(p -> p < 0).Print

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота