Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ogurtsov2001
18.02.2022 03:02 •
Информатика
Дана последовательность произвольных чисел. найти количество чисел, сумма которых не превышает заданное число. авс паскаль
Показать ответ
Ответ:
vasili6513
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 оценок)
Популярные вопросы: Информатика
qmerry128
20.11.2022 02:41
ДАЮ 80. ПАЙТОН . Нужна конкретная формула для введения в пайтон....
оооо140
24.07.2022 03:50
2.разработайте скрипт с анимацией и событиями, используя костюмы и сцену.костюмы ! приложение: skrach...
берсик7
10.02.2020 10:39
Перевести с вещественного в позиционное числоа)745.6×10 в 5 степениб)83.2×10 в 4 степенив) 124.56×10 в 5степени...
Vladosik0987
20.11.2021 00:19
Дано масив дійсних чисел із 25 елементів. зменшити в 10 разів кожний елемент масиву і вивести на екран одержаний масив...
Gdngz
08.10.2020 06:56
Сколько ошибок допущено в программе program zadacha; var a: integer; begin writeln( введите число а ) readln(a); if a =0 then if a=0 then a: =18 else a: =a+1; else a:...
Nika1032
28.05.2021 12:50
Мне.только решите правильно вас! 1)определи основание числа [tex]172_{8}[/tex] 2)переведи число [tex]1032_{8}[/tex] в десятичную систему счисления. 3)запиши число [tex]7...
miki745
12.08.2020 09:47
Заполните пропуски. IP-адрес 143.47.104.189 компьютера относится к сети класса , адрес компьютера в сети ___. . ___, а — это адрес компьютера пользователя....
snejik07
22.09.2022 22:40
Как удалось Илье за полдня (от заутрени дообедни) доехать от Мурома до Киева? ответьте...
ddbbqq
12.02.2023 16:01
Во Кушнірство спеціалізувалось на: Вичинка овечих шкур Тіпання конопель Виготовлення ложок Виготовлення колес Во Як називається робоче місце коваля: домниця криця кузня...
kartew
25.04.2020 01:37
1. Африка по размерам территории занимает сре¬ди всех регионов мира место: 1) первое; 2) второе; 3) третье; 4) четвертое. 2 найдите ошибку в перечне стран, не имеющих...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.