М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ШтанУдачи
ШтанУдачи
08.12.2020 15:36 •  Информатика

Питон

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

даша разделила пароль следующим образом. буквы с нечетными номерами (первая, третья, и т. д.) она записала в первую тетрадку, а буквы с четными номерами (вторая, четвертая, и т. д.) — во вторую тетрадку.

теперь даша просит вас написать программу, которая по двум строкам, записанным в тетрадки, восстанавливает ее пароль.

входные данные
ввод содержит две строки, первая строка — это буквы пароля с нечетными номерами, вторая строка — это буквы пароля с четными номерами. обе строки не пустые, состоят только из букв, и имеют длину не больше 10.

выходные данные
выведите одну строку — пароль даши.

примеры
входные данныескопировать
pswr
asod
выходные данныескопировать
password
входные данныескопировать
qet
wr
выходные данныескопировать
qwert

👇
Открыть все ответы
Ответ:
lren1
lren1
08.12.2020
Var
  a: array[1..1000,1..1000] of integer;
  i,j,s,n,m: integer;
begin;
  write ('Введите количество строк: ');
  readln (n);
  write ('Введите количество столбцов: ');
  readln (m);
  s:=0;
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(-20,20);
      write (a[i,j]:4);
    end;
    writeln;
    if a[i,m] >= 0
      then s:=s+a[i,m];
  end;  
  writeln;
  writeln ('Сумма положительных элементов последнего столбца = ',s);
end.

------------------------Результат:-------------------------

Введите количество строк: 5
Введите количество столбцов: 4
 -20  14  10  13
   0 -17  19  -4
  -1  16  18  17
  10  -8 -15  16
   5  18   3   9

Сумма положительных элементов последнего столбца = 55

Вдвумерном массиве произвольного размера, заданного на промежутке случайных чисел [-20; 20]найти и в
4,6(86 оценок)
Ответ:
alenazakhar2000al
alenazakhar2000al
08.12.2020
Const
  n=5; 
  m=11;
var
  a: array[1..n,1..m] of integer;
  i,j,s: integer;
begin;
  s:=0;
  writeln ('Количество учеников по классам:');
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(25,30);
      write (a[i,j]:3);
    end;
    writeln;
  end;  
  writeln;
  write ('Введите номер параллели: ');
  readln (j);
  for i:=1 to n do 
    s:=s+a[i,j];
  writeln ('В ',j,'-ой параллели всего ',s,' учеников');
end.

Результат:

Количество учеников по классам:
 27 27 28 26 28 25 27 25 27 29 26
 25 29 25 26 29 26 29 26 27 27 29
 30 25 29 27 25 28 29 27 29 26 28
 25 26 27 27 30 29 25 30 26 28 25
 28 26 28 27 28 28 25 27 28 26 30

Введите номер параллели: 5
В 5-ой параллели всего 140 учеников
4,8(100 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ