kimhakip09577
22.03.2020 20:59

Не­ко­то­рый ал­го­ритм из одной це­поч­ки сим­во­лов по­лу­ча­ет новую це­поч­ку сле­ду­ю­щим об­ра­зом. Сна­ча­ла вы­чис­ля­ет­ся длина ис­ход­ной це­поч­ки сим­во­лов; если она чётна, то в се­ре­ди­ну це­поч­ки сим­во­лов до­бав­ля­ет­ся сим­вол А, а если нечётна, то в на­ча­ло це­поч­ки до­бав­ля­ет­ся сим­вол Б. В по­лу­чен­ной це­поч­ке сим­во­лов каж­дая буква за­ме­ня­ет­ся бук­вой, сле­ду­ю­щей за ней в рус­ском ал­фа­ви­те (А — на Б, Б — на В и т. д., а Я — на А). По­лу­чив­ша­я­ся таким об­ра­зом це­поч­ка яв­ля­ет­ся ре­зуль­та­том ра­бо­ты ал­го­рит­ма. На­при­мер, если ис­ход­ной была це­поч­ка ВРМ, то ре­зуль­та­том ра­бо­ты ал­го­рит­ма будет це­поч­ка ВГСН, а если ис­ход­ной была це­поч­ка ПД, то ре­зуль­та­том ра­бо­ты ал­го­рит­ма будет це­поч­ка РБЕ.

Дана це­поч­ка сим­во­лов ТОР. Какая це­поч­ка сим­во­лов по­лу­чит­ся, если к дан­ной це­поч­ке при­ме­нить опи­сан­ный ал­го­ритм два­жды (т. е. при­ме­нить ал­го­ритм к дан­ной це­поч­ке, а затем к ре­зуль­та­ту вновь при­ме­нить ал­го­ритм)? Рус­ский ал­фа­вит: АБВ­ГДЕЁЖЗИЙ­КЛМ­НОПР­СТУ­ФХ­ЦЧ­Ш­ЩЪ­Ы­Ь­Э­ЮЯ. ​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
viakobchuk
13.11.2021 00:28
Function SolveX(a,b,c:real; var x1,x2:real):integer;
{
Возвращает:
-1 - нет вещественных корней
 0 - один корень х1
 1 - два корня х1,х2
}
var D:real;
begin
  D:=b*b-4*a*c;
  if D<0 then SolveX:=-1
  else
    if D=0 then begin
      x1:=(1+b*c0)/(2*c);
      if x1=b then SolveX:=-1 else SolveX:=0
      end
    else begin
      D:=sqrt(D);
      x1:=(1+b*c-D)/(2*c);
      x2:=(1+b*c+D)/(2*c);
      if x1=b then begin SolveX:=0; x1:=x2 end
      else
        if x2=b then SolveX:=0
        else SolceX:=1
      end
end;
0,0(0 оценок)
Ответ:
dianasadykovaaaa
10.01.2020 14:14
Const n=10;
var 
  s1,s2,i: integer;
  var a: array[1..n] of integer;
begin
  s1:=0; s2:=0;
  writeln ('Исходный массив');
  for i:=1 to n do begin
    a[i]:=random(-10,10);
    write (a[i]:3);
    if a[i]>=0
      then s1:=s1+a[i]
      else if a[i] mod 2<>0
        then s2:=s2+a[i];
  end;
  s1:=s1*2;
  writeln;  
  writeln ('Удвоенная сумма положительных элементов = ',s1);
  writeln ('Сумма нечетных отрицательных элементов = ',s2);
end.

Результат:

Исходный массив
 -2  0  8 -6 -1  6  7 -4 -7-10
Удвоенная сумма положительных элементов = 42
Сумма нечетных отрицательных элементов = -8
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота