Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ilonasusak77
29.11.2022 10:51 •
Информатика
Посчитать количество отрицательных элементов в паскале сделать нужно
Показать ответ
Ответ:
OlegJexLP
31.07.2020 10:02
Var
count: integer;
input: real;
begin
count := 0;
input := 1;
while (input <> 0) do
begin
write('Введите число(0 - закончить ввод): ');
read(input);
if(input < 0) then
count := count + 1;
end;
write('Количество отрицательных - ', count);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zac00
14.06.2020 12:32
Администратор ПК, работа с программным обеспечением.нужен реферат по этой теме...
andreykotov6
30.05.2022 09:09
Дан массив в=[5,10,15], запишите программный код для вычисления суммы элементов в данном массиве...
Annet483
19.01.2020 16:47
Контрольная работа по информатике Обобщение знаний материала Вариант 1 1. Переведи из двоичной системы в десятичную восьмеричную, и 16-ричную: 1) 1101002 = 2) 111110112 =...
wereweek777
03.04.2021 00:25
У исполнителя Омега две команды, которым присвоены номера: 1. прибавь 4; 2. умножь на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, Омега увеличивает...
HKTOG
24.07.2022 05:25
Стрілець почув що куля влучила в мішень через 1 с після того як вистрілив. На якій відстані від нього поставлено мішень? Куля летить зі швидкістю 500 м/с. Швидкість звуку...
kolyamusin01
09.07.2021 08:12
Какие полезные ископаемые добывают открытым Которые залегают глубоко от поверхности.Которые залегают на дне океана.Которые являются газообразными.Которые залегают на небольшой...
Мирандалина1414
20.07.2020 00:34
Стороны параллелограмма равны 4,5 см и 2,8 см., а угол между этими сторонами равен 30 градусов. Найдите площадь параллелограмма....
DarkWolfe2017
18.03.2022 13:07
Берілген кейіпкерлердің портреттері арқылы кейіпкерлердің өзімен сәйкестендір...
vitlikkushnirp08qv4
28.05.2021 13:41
ЗАДАНИЕ 1. В аптечном спиртовом растворе содержится 11,8-10^21 атомов йода. Рассчитайте, какое количество элемента йода содержится в растворе? А) 0,04 мольВ) 0,031 мольс)...
дарья2411по
09.05.2021 12:32
Сіздің ойыңызша, домбыраны қазақтар неліктен киелі санағана? 4-5 сөйлеммен жауап беріңіз...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
count: integer;
input: real;
begin
count := 0;
input := 1;
while (input <> 0) do
begin
write('Введите число(0 - закончить ввод): ');
read(input);
if(input < 0) then
count := count + 1;
end;
write('Количество отрицательных - ', count);
end.