Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Vikatyn
12.03.2021 19:26 •
Информатика
Найти сумму чисел из файла, меньших заданного числа. , паскаль
Показать ответ
Ответ:
karina694
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 оценок)
Популярные вопросы: Информатика
Eva345678
25.06.2020 08:04
Задано масив з дужок, що відкриваються і закриваються. Побудувати машину Тюрінґа, яка видаляла б пари взаємних дужок. Наприклад, початковий стан: « ) ( ( ) ( ( )...
salazarcpt
11.06.2022 12:24
Какая формула может быть записана в ячейке D2, чтобыпостроенная после выполнения вычислений диаграмма позначениям диапазона ячеек А2:D2 соответствовала рисунку?O...
LinaMat
25.05.2020 17:22
Кто дружит с информатикой очень...
kriss200900
28.07.2021 03:12
Что является назначением представленного фрагмента программы: S:=0; FOR K:=1 TO 100 DO S:=S+K; WRITELN (s);...
makshardin17
03.06.2021 22:22
Как извлечь подстроку из строки? vba...
armen6204
15.08.2021 02:41
Формат входных данных Вводятся два числа. Формат выходных данных Выведите ответ на задачу. Sample Input 1: 1 2 Sample Output 1: 2 Sample Input 2: 5 3 Sample Output...
iulelebedeva
08.04.2023 09:30
Приведите примеры из окружающей среды с составным условием....
1231231221312223
23.05.2023 01:22
Люди добрые У меня часы SKMEI 1148 пищат каждые 5 минут постоянно ни с того ни с всего. Что мне сделать??...
daramarkel
27.04.2022 04:10
... я не знаю как быть я забеременела от дяди Али которому 49 лет в апреле ему 50 мы с семьёй поехали на дачу мама и папа ушли к бабушке, тётя Арина ушла в магазин...
polina033
11.09.2020 07:17
самородок золота погружён в воду ту выталкивающая сила оказалась равной 02 H сколько золота содержится в самородке плотность 19300 кг/м...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.