В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
yekatmedwedicz
yekatmedwedicz
04.07.2021 08:01 •  Информатика

У Сени есть 26 различных цветов, которые он для удобства обозначает строчными английскими буквами. Чертёж — это последовательность из строчных букв, каждая из
которых обозначает какой-то цвет.
Рассмотрим некоторый чертёж из k букв: s1s2 . . . sk. Назовём его хорошим, если все
его подчертежи slsl+1 . . . sr, где l < r, не являются палиндромами, то есть чертежами,
которые одинаково читаются слева направо и справа налево.
Другими словами, чертёж хороший, если невозможно убрать какое-то (возможно, нулевое) число букв слева и некоторое (возможно, нулевое) число букв справа так, что в
результате получится палиндром длины 2 или более.
Сеня хочет красиво покрасить забор длины N. Для этого ему нужен хороший чертёж,
состоящий не менее чем из N символов. Выведете любой такой чертёж, длина которого
не больше 100. Python

Показать ответ
Ответ:
Виолетта2209
Виолетта2209
02.03.2021 22:20

Const

    n = 12;

var

    i, p: integer;

    a: array[1..n] of integer;

begin

    p := 1;

    for i := 1 to n do

    begin

        a[i] := random(150) - 100;

        write(a[i], ' ');

        if a[i] > 0 then p := p * a[i];

    end;

    writeln;

    writeln('P = ', p);

end.

2)uses crt;

var a:array [1..10] of integer;

i:integer;

begin

clrscr;

randomize;

{генерируем и выводим новый массив}

for i:=1 to 10 do

begin

a[i]:=random(9)+1;

write(a[i]:3);

end;

writeln;

{в цикле проверяем если счетчик i делится на 2 ( признак четности) то либо возводим в степень либо удваиваем}

for i:=1 to 10 do

begin

if (i mod 2=0 ) then a[i]:=a[i]*a[i]

else a[i]:=a[i]*2;

end;

{выводим конечный массив}

for i:=1 to 10 do

write(a[i]:3);

readkey;

end.

3)var arr:array[1..20] of integer;

max,q:integer;

begin

writeln ('ARRAY: ');

for q:=1 to 20 do

begin

arr[q]:=random(80);

write (arr[q]:3);

end;

max:=arr[1];

for q:=2 to 20 do

if arr[q]>max then max:=arr[q];

writeln;

writeln('MAX = ',max);

end.

0,0(0 оценок)
Ответ:
Ustailia
Ustailia
09.03.2023 03:34

1. Например : Домашняя работа , бизнес план

2. Сообщите учителю или своим родителям, чтобы они связались с человеком который скопировал у вас работу

3.  Присвоение авторства (плагиат), если это деяние причинило крупный ущерб автору или иному правообладателю, -

наказывается штрафом в размере до двухсот тысяч рублей или в размере заработной платы или иного дохода осужденного за период до восемнадцати месяцев, либо обязательными работами на срок до четырехсот восьмидесяти часов, либо исправительными работами на срок до одного года, либо арестом на срок до шести месяцев.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота