Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
tarasenkosasa
01.04.2022 11:17 •
Информатика
Найти сумму чисел из файла, меньших заданного числа. , паскаль
Показать ответ
Ответ:
SabZero55
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 оценок)
Популярные вопросы: Информатика
eva77772
11.05.2022 16:21
.Загадано число из промежутка от 64 до 128. Какое количество информации при этом содержит сообщение, что это число 68?...
Ragman007
18.07.2020 23:00
Диапазон А6:D7 электронной таблицы содержит ячейки?...
stefa91
05.02.2022 13:55
Вкакой системе счисления хранится информация в компьютере с технической точки зрения? а.двоичной б. восьмиричный с.десятичной д.16-ричный...
mdior10
05.02.2022 13:55
Надо вставить пропущенные слова : изображение которое появляется на экране компьютера после загрузки операционной системы на рабочем столе размещаются пиктограммы: значок обеспечивает...
floragormonikddd1
05.02.2022 13:55
Какое логические действие называется дизъюнкции...
Malajazaika
05.02.2022 13:55
Переведите число 101010101 из двоичной системы счисления в десятичную а) 361 б) 564 с) 455 д) 341...
dianaTe
02.01.2021 17:37
Вкаком году в америке был изобретён телефон когда был создан первый телевизор...
Landess
10.01.2022 14:06
В таблице приведины за и количество найденных по ним страниц некоторого сегмента сети Интернет. Какое количество страниц(в тысячах) будет найдено по за Физика & Задачи? Решите...
nikafolz
14.10.2021 15:13
1 байт равно 9.54 * 10-7 мегабайт 1 мегабайт равно 1 048 576 байт. Единицы измерения: Информация. Перевести байты в мегабайты. Новый расчет. байт. поменять...
КсюшаАнтропова
20.07.2020 19:14
10. 1)Используя следующий фрагмент текста определите: а) выравнивание текста (по левому краю, по центру, по правому краю, по ширине) б) абзацный отступ (0,5 см; 1 см; 1,5 см.) в)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.