marusi220
25.06.2020 22:45

1*2+2*3*4+3*4*4*5*6+n(n+*n) найти последавательность

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
nilnazarov666
10.02.2023 13:37

Ло́гика (др.-греч. λογική — «наука о правильном мышлении к рассуждению» от др.-греч. λόγος — «логос», «рассуждение», «мысль», «разум», «смысл») — раздел философии, нормативная наука о формах, методах и законах интеллектуальной познавательной деятельности, формализуемых на логическом языке.

Электронная таблица (англ. spreadsheet)— компьютерная программа, позволяющая проводить вычисления с данными, представленными в виде двумерных массивов, имитирующих бумажные таблицы. Некоторые программы организуют данные в «листы», предлагая, таким образом, третье измерение.

1101*101=1000001

Объяснение:

0,0(0 оценок)
Ответ:
gulim1902
07.02.2021 12:04
PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 uses crt; var s,s1:string;     c:char;     i,j,k:byte; begin writeln('Введите строку'); read(s); s1:=s;{сделаем копию строки, если строка не нужна, то можно и не делать} i:=1; while i<length(s1) do  begin   c:=s1[i];{запомним символ}   k:=0;   for j:=length(s1) downto i+1 do{с конца строки ищем такие же}   if s1[j]=c then{если есть}    begin     k:=1;{фиксируем}     delete(s1,j,1);{удаляем}    end;   if k=1 then delete(s1,i,1){если не один, удаляем}   else i:=i+1;{иначе проверяем следующий}  end; writeln('Символы по 1 разу'); if s1='' then write('Таких символов нет') else write(s1); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота