<em>// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(ReadInteger('n=')).Pairwise.All(t->t[0]<=t[1]);
b.Println;
end.
<u>Примеры</u>
n= 5
36 46 57 39 94
False
n= 7
9 11 23 64 79 120 500
True
Формула указана не ясно в задании, я указал в ответе так как оно более менее смотрится понятно, но вам стоит уточнить. Что до алгоритма, то он выглядит вот таким вот образом. Внимание, первый член данного ряда считается за 0, вам стоит так же уточнить у преподавателя, в задании этого явно не указано, но зачастую такое значение традиционно.
Ошибки в вашем алгоритме:
1. У вас условие k < 0, это значит, что если будет введено k = 0, то алгоритм отработает, но 0 членов быть не может, это не имеет смысла.
2. Цикл у вас выводит значение n-го члена после каждой итерации, а не единожды.
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "спасибо" (:
Ячейка B5 - это второй столбец, пятая строка.
в задании ваша формула $B$-D$4 записана неверно. должно быть, например $B$3-D$4.
при копировании формулы $B$3-D$4 в ячейку Е10
$B$3 останется тем значением, потому зафиксированы символом $ и строка и столбец ячейки.
в D$4 изменится только столбец D, он четвертый по счету, на два столбца больше чем B, значение строки останется 4.
Тогда при копировании формула будет: $B$3-G$4
$B$3-E$4 - зафиксировано
$3 - зафиксировано
$4 - зафиксировано
G - на 2 столбца больше E будет столбец G
--
надеюсь понятно объяснила)
О, я как раз около полугода назад для такого (но для себя уж, не для учёбы, просто интерес) программу на Visual Bisic .NET написал:) Счастья тебе, спасибо, что про неё напомнила х)
01010111011011110111001001101100011001000010000001010111011010010110010001100101001000000101011101100101<span>01100010</span>