Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
PRIL82
21.12.2021 19:13 •
Информатика
Найти сумму чисел из файла, меньших заданного числа. , паскаль
Показать ответ
Ответ:
kuro4
08.10.2020 14:27
Var
f:text;
n,n1,s:real;
begin
readln(n);
Assign(t,'input.txt');
while (eof(t)=false)do
begin
readln(t,n1);
if (n1 < n)then s:=s+n1;
end;
Close(t);
writeln(s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Akmeyir
24.02.2020 06:32
Исправить ошибки в программе(решение уравнения ax+b=0)...
KarakatitsaKrutitsa
14.01.2021 12:45
Долговременное хранение файлов, более медленный доступ, объем в несколько десятков или сотен гигабайт...
Spudi14
24.12.2020 23:01
Акое количество сравнений элементов сделает оптимальная операция слияния (merge) двухмассивов [8, 9, 15, 17] и [0, 4, 5, 6, 13, 14, 18]?...
irinkaokhotina
03.06.2022 00:43
Как подготовится к тесту по окружающему миру,...
oal64
03.06.2022 00:43
Это 1 составь утвердительные предложения с глаголом to be 1. i never happy on a sunday afternoon. 2. we scottish. 3. he a pilot. 4. mayte and joshua angry. 5. you clever...
axmefibragimovp09v94
03.06.2022 00:43
Подумайте,на какие две группы можно разделить эти слова.пальто,белье,кольцо,семья,барьер,вьюга,бельчонок,фольга,счастье,письмо,копье...
lisa20060701
03.06.2022 00:43
ответь на вопросы и определи, какую особенность имеют данные глаголы: kommen sie mit? ja, reisen sie morgen ab? rufen sie mich in berlin an? laden sie mich ein? lesen sie...
Hiccjhcvkjxg
03.06.2022 00:43
А) начав заниматься искусством, у меня появилось много интересных друзей. б) все, кто был в этот день на этом вокзале, помнит тот страх и ужас. в) в рассказе толстый и тонкий...
shakmatovakseni
03.06.2022 00:43
Дыхание беззубки обеспечивается за счет поступления воздуха через...
Viper397
03.06.2022 00:43
Найдите 10 подходящих прилагательных к слову мерцание . //...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
f:text;
n,n1,s:real;
begin
readln(n);
Assign(t,'input.txt');
while (eof(t)=false)do
begin
readln(t,n1);
if (n1 < n)then s:=s+n1;
end;
Close(t);
writeln(s)
end.