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

Даны 2 строки символов. получить новую строку путем сложения 2-х строк. в новой строке найти номер позиции символов '-? '. паскаль

👇
Ответ:
sleshkevich
sleshkevich
28.04.2021
// PascalABC.NET 3.2, сборка 1416 от 26.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s1:=ReadlnString('1:');
  var s2:=ReadlnString('2:');
  Writeln(Pos('-?',s1+s2))
end.

Пример
1: weree rt3  453 nr? 634e
2: geertg-?dffgdrrg*d
30
4,7(39 оценок)
Открыть все ответы
Ответ:
wannaone
wannaone
28.04.2021

ответ:название «винчестер» (англ. Winchester) накопитель получил благодаря работавшему в фирме IBM Кеннету Хотону (англ. Kenneth E. Haughton), руководителю проекта, в результате в 1973 году был выпущен жёсткий диск модели 3340, впервые объединивший в одном неразъёмном корпусе пластины диска и считывающие головки. При его разработке инженеры использовали краткое внутреннее название «30-30», что означало два модуля (в максимальной компоновке) по 30 мегабайт каждый, что по созвучию совпало с обозначением популярного охотничьего оружия — винтовки Winchester Model 1894, использующего винтовочный патрон .30-30 Winchester. Также существует версия[4], что название произошло исключительно из-за названия патрона, также выпускавшегося Winchester Repeating Arms Company, первого созданного в США боеприпаса для гражданского оружия «малого» калибра на бездымном порохе, который превосходил патроны старых поколений по всем показателям и немедленно завоевал широчайшую популярность.

Объяснение:

4,8(52 оценок)
Ответ:
xzc999
xzc999
28.04.2021
Program proga;
Var  
p: text;   
  i, n : byte;     
 s,min,m: string;     
 Begin                         
 write('Введите имя файла   ');  {Например: C:.txt}                         
 read(m);
Assign(p,m);      
  reset(p);
    read(p,s);
 min:=s;   
 n:=100;   
 for i:=1 to n do   
 begin     
readln(p,s);                                      
while not eof(p) do  
 {нахождение минимальной строки}       
   begin         
 readln(p,s);       
   if length(s) <= length(min) then        
  min:=s;         
 end;          
 end;
close(p);   
 write('самая короткая строка: ',min);
End.
4,8(8 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ