Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
умник20072
13.06.2020 21:02 •
Информатика
Дано натуральное число b и n целых чисел. верно ли, что сумма данных целых чисел не превышает b.
Показать ответ
Ответ:
zaika198444
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 оценок)
Популярные вопросы: Информатика
саяна7
10.05.2021 16:48
Написать программу,которая определяет количество всех чисел из диапазона от 5 до 25.(паскаль) входные данные: 1,6,35,12,18,24,0....
Бека672
30.06.2020 22:46
1/ определите что будет выделено в результате выполнения следующей программы: program z6; var s,k: integer begin s: =0 for k: =1 to 6 do s: =s+15 write (s); end....
lasdfghjkmnbvgytfcxd
03.02.2020 07:15
1. Яке розширення мають текстові файли? a) PDF, gif, jpeg, dib; b) mde, dbase, rtf; c) rtf,txt,docx; d) pub, txt,gif, PDF; 2. Як називається текст оформлений за до текстового...
Alinamail02
13.05.2023 13:13
Запишите логические формулы, описывающие состояние схем...
kissssss7s8
23.02.2022 12:23
Хватит ли вам 1000 тенге, чтобы купить все продукты, которые вам сказала мама и хватит ли купить чипсы за 200 тенге? наиминование цена кол-во стоимость1 хлеб 70 2 1402...
kotsdanil778
11.11.2020 17:23
Илья муромец подошел к камню, а там три надписи: направо пойдешь – 100 килобайт, 2000 байт и 3000 бит памяти найдешь, налево пойдешь – 1 мегабайт и 100 бит памяти найдешь,...
ника43556
10.05.2023 11:49
1) что происходит, если на dns-сервере отсутствует запись о запрашиваемом имени? 2) для чего нужна команда nslookup?...
ilovemath777
05.01.2022 04:26
1.определите значение переменной d после выполнения следующего фрагмента программы: k : = - 50; w : = 2; if k* w 0 then d : = w *w else d : = k + w; 2.определите значение...
leshaChi
26.10.2022 00:18
Для хранения растрового изображения размером 153×153 пикселей отвели 4 кб памяти. каково максимально возможное число цветов в палитре изображения?...
mark123445
08.11.2021 13:19
Бежать, бежать – не добежать, лететь, лететь – не долететь....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.