Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
literaturas
18.10.2022 03:42 •
Информатика
Втекстовом файле chisla.txt посчитать количество отрицательных чисел.
Показать ответ
Ответ:
Инав
15.07.2020 17:26
Var
t : text;
a,k : integer;
begin
k := 0;
assign (t,'chisla.txt');
reset(t);
while Not Eof(t) do
begin
read (t,a);
if a < 0 then
k := k +1;
end;
close(t);
writeln (k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
XxXBulykXxX
21.05.2021 23:37
НА Python Вы вводите с клавиатуры любое количество слов (оканчивая его ключевым сочетанием “конец списка”), после чего вводите одно целое число – число групп. Слова на...
дэвттвс
03.09.2020 01:45
НА Python У вас есть с собой T (T вводится с клавиатуры) золотых монет. Местные жители согласились продать вам припасы, но у них есть странный ритуал. Всего в деревне...
Vrronika778
22.11.2020 10:20
Free pascal. задать массив, и из массива а в б переписать сначала все нули, потом отрицательные числа и потом все положительные. числа рандомные....
Сашечка11
31.07.2020 16:59
Составить небольшую программу...
Анна5363646
20.05.2021 23:52
Создайте программу на C ++ и найдите решение проблемы: Задача 1. Объем цилиндра равен V. Площадь стопы - S. Найдите высоту цилиндра. Задача 2. Создать программу для решения...
Pahnet
30.06.2022 00:09
1. Что такое приводная платформа: 2. Какую программу нужно использовать для конструировання приводной платформы...
daaaasha2018
30.04.2020 08:17
2/3x3+3.2-sin4xcos2c блок схема...
ваулсдада
28.11.2022 04:28
В англійському алфавіті букви «e», «y», «u», «i», «o», «a» – голосні. Видалити з тексту всі голосні букви...
Солнышко003
22.01.2020 11:52
Назовите мероприятия итальянских фашистов в политической и экономической области. Каковы были их результаты?...
dinka41
13.06.2021 03:19
Фізика 3,4,5 завдання зробіть будьласка...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
t : text;
a,k : integer;
begin
k := 0;
assign (t,'chisla.txt');
reset(t);
while Not Eof(t) do
begin
read (t,a);
if a < 0 then
k := k +1;
end;
close(t);
writeln (k);
end.