Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
SmilLl
14.03.2023 23:09 •
Информатика
Дано натуральное число b и n целых чисел. верно ли, что сумма данных целых чисел не превышает b.
Ответ:
nenezkivazak
07.07.2020 23:27
var
b, n, s, a: integer;
begin
readln(b, n);
for i: integer := 1 to n do
begin
readln(a);
s += a;
end;
writeln(b >= s ? 'Yes' : 'No');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Аринкаlove7002
19.05.2021 07:08
Дано натуральне числа a,b що позначають чисельник та займеник простого дробу скоротить дроб тобто знайдитнатуральни числа p,q що не мають спильних дильникивю за алгороритмом...
Sassha121628
19.05.2021 07:08
Y=tgx при х изменяется от 0 до 10 написать программу так чтобы она решала с использованием оператора цикла...
Dirolling
19.05.2021 07:08
Задано предложение y состоящее из слов строк.проверить встречается ли данное слово x в предложении y.паскаль ....
SarJiG2A
25.12.2020 17:07
Производительность работы компьютера(быстрота выполнения операций зависит от:...
Matthieu5401
25.12.2020 17:07
Ычислите информационный объем предложения если используется кодировка юникод...
dianadobosh13
21.09.2020 10:04
Для чего нужно два цвета в ростовом графическом редакторе?...
Loomina
21.09.2020 10:04
Мама хочет купить мыло и шампунь. Шампунь стоит x рублей, мыло стоит y рублей. Зарплата у мамы z рублей, z y. Мама покупает одно мыло и несколько упаковок мыла (если хватит...
TheAlexKillGame
10.12.2020 08:52
Скільки костюмів може мати спрайт...
Fallens0n
02.11.2022 22:14
Задача на кумире, во вложении задача...
Olyecvh
17.07.2020 15:37
с контрольной работой по Информатике...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
b, n, s, a: integer;
begin
readln(b, n);
for i: integer := 1 to n do
begin
readln(a);
s += a;
end;
writeln(b >= s ? 'Yes' : 'No');
end.