Измените эту программу 1. каждая буква должна вводиться своим цветом(можно использовать случайное цветов. 2. буквы, стоящие на четных местах,должны выводиться одним цаетом, а на нечетные-другим. , надо. просто напишите на листке( без паскаля надо)
Міркуючи логічно, ви можете включити одну лампу, другу вимкнути, а ось що робити з третьої - незрозуміло. Станів лампи всього два: або «включена», або «вимкнена». Найпопулярніший б вирішення полягає в тому, щоб в якості третьої стану додати поділ ламп на «теплі» і «холодні». Потрібно почекати якийсь час, щоб лампи охололи на випадок, якщо вони недавно включалися. Потім включити одну для нагрівання. Вимкнути її назад і включити будь-яку іншу. Зайшовши після цього в кімнату одна лампа буде горіти, друга виключена і холодна, третя виключена і гаряча. Інший варіант додати лампам стан «перегоріла», якщо є можливість подати на перемикач більшу напругу, ніж потрібно. Дальше действовать аналогічно попередньої схеми.
К сожалению, задание составлено некорректно. 0<N≤30 допускает случай N=0. Но тогда ряд значений должен оканчиваться 2⁰, а не 2¹, как указано. Да и массив из N элементов при N=0 - нечто странное. Поэтому принято решение считать значение N<1 ошибкой.
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger; Assert(n>0,'Нарушение: N<=0'); var a:=SeqGen(n,2,i->2*i).Reverse.ToArray; a.Println end.
Відповідь:
Міркуючи логічно, ви можете включити одну лампу, другу вимкнути, а ось що робити з третьої - незрозуміло. Станів лампи всього два: або «включена», або «вимкнена». Найпопулярніший б вирішення полягає в тому, щоб в якості третьої стану додати поділ ламп на «теплі» і «холодні». Потрібно почекати якийсь час, щоб лампи охололи на випадок, якщо вони недавно включалися. Потім включити одну для нагрівання. Вимкнути її назад і включити будь-яку іншу. Зайшовши після цього в кімнату одна лампа буде горіти, друга виключена і холодна, третя виключена і гаряча. Інший варіант додати лампам стан «перегоріла», якщо є можливість подати на перемикач більшу напругу, ніж потрібно. Дальше действовать аналогічно попередньої схеми.
Пояснення:
0<N≤30 допускает случай N=0. Но тогда ряд значений должен оканчиваться 2⁰, а не 2¹, как указано. Да и массив из N элементов при N=0 - нечто странное. Поэтому принято решение считать значение N<1 ошибкой.
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
Assert(n>0,'Нарушение: N<=0');
var a:=SeqGen(n,2,i->2*i).Reverse.ToArray;
a.Println
end.
Примеры
5
32 16 8 4 2
20
1048576 524288 262144 131072 65536 32768 16384 8192 4096 2048 1024 512 256 128 64 32 16 8 4 2