Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
помогитееученику
23.03.2021 13:00 •
Информатика
Дана последовательность произвольных чисел. найти количество чисел, сумма которых не превышает заданное число. авс паскаль
Показать ответ
Ответ:
MrЕвгений228
03.10.2020 02:23
Var sum, n, a, max: integer;
begin
write('введите макс число ');
read(max);
sum:=0; n:=0;
writeln('вводите числа');
while (true) do
begin
read (a);
if (a+sum) > max then break;
sum:=sum+a;
inc(n);
end;
write('кол во чисел ', n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dilovardustiev1
05.04.2020 19:59
составить блок-схему программы броуновское движение...
gnezdozatokaиванка
04.05.2020 20:06
Основными записи алгоритмов являются 1) словесный, графический, псевдокод, программный 2) графический, программный, дескриптивный 3) словесный, псевдокод, директивный 4)...
Какашка54321
24.04.2022 08:35
Как настроить https перенаправление nginx с порта 8080 на стандартный 80? Ubuntu server 16.04...
Julia20033112
11.12.2020 11:53
что обозначают гиперссылки в плане навигации по информационным ресурсам Всемирной паутины? Какие элементы нелинейной навигации вы встречаете...
kabaramba
15.11.2020 21:40
Как можно создать новый документ(3 варианта)...
Nikita310101
15.11.2020 21:40
Линейка нужна транспортир нужен термометр нужен барометр нужен компас нужен телескоп нужен микроскоп нужен для напишите определение...
snoopelol5
01.07.2021 10:35
ВО Решите кроссворд. Какое слово получилось по вертикали в выделенном столбце? 1-самый маленький элемент изображения на экране монитора 2- устройство подключаемое к компьютеру...
rrrrrrrrrrrrrrrrt
01.07.2021 10:35
Для передачи секретного сообщения используется код, состоящий только из русских букв (всего используется 30 различных символов). При этом все символы кодируются...
SuperPuper131
31.01.2022 03:11
Силы, возникающие при взаимодействии двух заряженных шариков, направлены по прямой навстречу друг другу. Как заряжены шарики?...
hhwjsbjweujskzks
31.01.2022 03:11
При столкновении двух тел разной массы какое из них приобретает большее ускорение?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('введите макс число ');
read(max);
sum:=0; n:=0;
writeln('вводите числа');
while (true) do
begin
read (a);
if (a+sum) > max then break;
sum:=sum+a;
inc(n);
end;
write('кол во чисел ', n);
end.