заполнить массив числами натурального ряда(1,2.....) до тех пор пока их сумма не станет больше наперед заданного числа м вывести на печать сумму и число элементов массива
Ответы
Ответ дал:
2
Начало
Ввод Z ' заданное число - лимит суммы
S = 0 ' Здесь мы накапливаем сумму
n = 1 ' Счетчик элементов
Цикл, пока S <= Z
S = S + n
n = n + 1
Конец цикла пока
n = n - 1 ' на выходе получилось число на 1 больше максимального, уменьшаем
Объявляем массив A(n)
Цикл по i от 1 до n
A(i) = i
Вывод A(i)
Конец цикла по i
Вывод S; n
Конец
Ввод Z ' заданное число - лимит суммы
S = 0 ' Здесь мы накапливаем сумму
n = 1 ' Счетчик элементов
Цикл, пока S <= Z
S = S + n
n = n + 1
Конец цикла пока
n = n - 1 ' на выходе получилось число на 1 больше максимального, уменьшаем
Объявляем массив A(n)
Цикл по i от 1 до n
A(i) = i
Вывод A(i)
Конец цикла по i
Вывод S; n
Конец
Аноним:
Все хорошо, только нет того самого массива, который в условии требуется заполнить...
Исправить уже не дают, поэтому сейчас напишу по новой всю программу
Начало
Ввод Z ' заданное число - лимит суммы
S = 0 ' Здесь мы накапливаем сумму
n = 1 ' Счетчик элементов
Цикл, пока S <= Z
S = S + n
n = n + 1
Конец цикла пока
n = n - 1 ' на выходе получилось число на 1 больше максимального, уменьшаем
Объявляем массив A(n)
Цикл по i от 1 до n
A(i) = i
Вывод A(i)
Конец цикла по i
Вывод S; n
Конец
Ввод Z ' заданное число - лимит суммы
S = 0 ' Здесь мы накапливаем сумму
n = 1 ' Счетчик элементов
Цикл, пока S <= Z
S = S + n
n = n + 1
Конец цикла пока
n = n - 1 ' на выходе получилось число на 1 больше максимального, уменьшаем
Объявляем массив A(n)
Цикл по i от 1 до n
A(i) = i
Вывод A(i)
Конец цикла по i
Вывод S; n
Конец
Исправления в комментариях не могут приниматься, потому что впоследствии комментарии отрезаются.
Исправил в тексте
Спасибо за понимание!
Как то у вас не очень правильно все устроено. Админ захотел - убрал возможность правки ответа, захотел - вернул. Первый же комментарий к ответу автоматом отключает возможность правки.
"Админ" этот вопрос не решает. Остальное - а личном сообщении.
Вас заинтересует
2 года назад
2 года назад
2 года назад
7 лет назад
9 лет назад