Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
valuchska
13.09.2021 19:19 •
Информатика
Втекстовом файле chisla.txt посчитать количество отрицательных чисел.
Показать ответ
Ответ:
Maximus20161
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 оценок)
Популярные вопросы: Информатика
даsha3
05.09.2020 09:15
Написать программу, вычисления выражения:...
topalinskaya
21.10.2020 18:25
Внешняя память компьютера?...
dimaahmet6
30.11.2021 17:09
В ячейку В3 занести: - корень квадратный из произведения В1 и В2, если числа в В1 и в В2 отрицательные; - произведение В1 и В2, если число в В1 или число в В2 – положительное; -...
mbolzhatova
01.01.2020 03:48
В ячейку С8 введите: - сообщение «Оба числа отрицательны», если в ячейках С6 и С7 находятся отрицательные числа; - сообщение «Оба числа положительные», если в ячейках С6 и С7 находятся...
FaceLess111
19.05.2021 19:05
Задан фрагмент алгоритма если a 0 то a= – a если b 0 то b= – b если a иначе b=b + a В результате выполнения данного алгоритма с начальными значениями a=8; b=-2 какое результирующее...
Slava1432
26.04.2020 12:43
На рисунке справа схема дорог н-ского района изображена в виде графа в таблице содержатся сведения...
kopulenkodimasGAS
30.03.2022 16:17
Как заработать ранг в аниксарте? ...
Dumbass1007
05.07.2020 06:15
Расшифровать шифр раз оттуда не возвращаются, может быть, там лучше? vi 1 6 8 9 9 9 1 + все предыдущие пароли предыдущие пароли: lpaa tp iait ttdi с подсказка: открытый ключ...
TASHER228YMM
30.12.2022 09:57
Составьте программу с ее решением...
totty1
24.08.2022 18:51
Дан массив из N целых чисел. Найти сумму всех отрицательных чисел. Создать программу на Паскаль...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.