Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
masaynay22mailru
01.10.2020 13:44 •
Информатика
Склавиатуры задаётся три числа. составить программу, которая определяет, сколько отрицательных чисел введено
Показать ответ
Ответ:
Шан15
06.10.2020 13:27
Program mas;
uses crt;
const n=3;
var a,i,kp,ko,kn: integer;
begin clrscr;
writeln('Введите ',n,' целых чисел');
ko:=0; for i:=1 to n do
begin
readln(a);
if a<0 then
ko:=ko+1 end;
writeln('Кол-во отриц чисел= ',ko);
readln;
end.
0,0
(0 оценок)
Ответ:
animator351
06.10.2020 13:27
PascalABC.NET 3.2 (сборка 1482 от 13.06.17)
Begin
Write('Количество отрицательных чисел: ',ReadSeqReal('Введите три числа:',3).Where(x->x<0).Count)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
vikylev011
06.01.2022 06:30
1. Запишите алфавит 10CC (десятичной системы счисления). Какое число следует за числом 29 ? Зачислом 130?...
Romakot
23.01.2020 10:39
Задание 3Какое число записано неправильно (не существует)?А) 1011110↓3Б) 452110↓5В) 533601↓8Г) 5555555↓9...
polinakoshara03
02.05.2022 08:14
Сил моих больше нет разбирать инфу Программа на языке Питон дам благословение вашей семье и максимум 1. Дана длина ребра куба a. Найти объем куба V = a3 и площадь его поверхности S...
ilariyao
10.12.2022 04:45
Задание 4. Какие операторы используются для ввода и вывода в модульной программе? 1.2.Обратная связь от учителяКод программыОтправить на Ok.edus.kz...
сонька177
03.12.2021 19:46
Напишите программу, отображающую n треугольников. n число от 0 до 9...
maksud19750203oyaf73
13.05.2020 11:24
у меня сор по ИВТ 7 класс если у кого такой же дайте все ответы это сор...
tubip888
17.01.2023 22:02
Сор информатика3 четверть программирование на языке python билим ленд сор...
Кепики
19.01.2022 03:11
2 какую команду нужно выполнить чтобы открыть в программе новое окно? Что выйдет на экране в результате выполнения print ( 12*5-7)? 3.1. a = ( школа ,13,19,20) 2. print ( a )? 3. print...
Jeka990
19.11.2020 03:58
дано 3 не нулевых положительных числа, сравните эти числа между собой и записать числа по убыванию на языке паскаль...
rustam141
11.02.2022 15:05
С Вывести только четные числа в диапозоне, которые введет пользователь. Найти количество этих чисел и их сумму...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
const n=3;
var a,i,kp,ko,kn: integer;
begin clrscr;
writeln('Введите ',n,' целых чисел');
ko:=0; for i:=1 to n do
begin
readln(a);
if a<0 then
ko:=ko+1 end;
writeln('Кол-во отриц чисел= ',ko);
readln;
end.
Begin
Write('Количество отрицательных чисел: ',ReadSeqReal('Введите три числа:',3).Where(x->x<0).Count)
End.