жпжрдмдопнулуу
08.08.2022 06:48

Кибернетика – это ... Выберите один ответ:
отрасль народного хозяйства, которая объединяет совокупность предприятий разных форм собственности, где занимаются производством компьютерной техники, программных продуктов, разработкой современных технологий преобразования информации
наука об общих принципах управления в различных системах – технических, биологических, социальных
наука об информационных процессах в технике
наука об автоматической обработке информации
наука, направленная на аппаратное моделирование структур, подобных структуре человеческого мозга
Очистить мой выбор
Вопрос 2
Пока нет ответа
: 1,00
Не отмеченоОтметить вопрос
Текст вопроса
Программа, предназначенная для работы с текстовой информацией в процессе делопроизводства и др., называется ...

Выберите один ответ:
системой программирования
операционной системой
интерпретатором
графическим редактором
текстовым редактором
Очистить мой выбор
Вопрос 3
Пока нет ответа
: 1,00
Не отмеченоОтметить вопрос
Текст вопроса
База данных, содержащая информацию в кратком, структурированном виде, называется…

Выберите один ответ:
реляционная
иерархическая
документальная
сетевая
фактографическая
Очистить мой выбор
Вопрос 4
Пока нет ответа
: 1,00
Не отмеченоОтметить вопрос
Текст вопроса
Как называется главный каталог на диске?

Выберите один ответ:
корневой
родительский
текущий
системный
пользовательский
Очистить мой выбор
Вопрос 5
Пока нет ответа
: 1,00
Не отмеченоОтметить вопрос
Текст вопроса
Информационный процесс – это ...

Выберите один ответ:
непрерывный технологический процесс
получение формул, уравнений, функциональных зависимостей
получение информации из окружающего мира
действия, выполняемые с информацией
хранение информации в архивах
Очистить мой выбор
Вопрос 6
Пока нет ответа
: 1,00
Не отмеченоОтметить вопрос
Текст вопроса
Кокой числовой формат в электронных таблицах увеличивает число в 100 раз?

Выберите один ответ:
денежный
формат ДАТА и ВРЕМЯ
финансовый
процентный
общий
числовой
Очистить мой выбор
Вопрос 7
Пока нет ответа
: 1,00
Не отмеченоОтметить вопрос
Текст вопроса
Понятие «папка» в Windows соответствует понятию ...

Выберите один ответ:
каталог
диск
устройство
файл
программа
Очистить мой выбор
Вопрос 8
Пока нет ответа
: 1,00
Не отмеченоОтметить вопрос
Текст вопроса
В растровом графическом редакторе минимальным объектом, цвет которого можно изменить, является …

Выберите один ответ:
знакоместо (символ)
выделенная область
графический примитив (отрезок, прямоугольник, окружность и т.д.)
вектор
точка экрана (пиксель)
Очистить мой выбор
Вопрос 9
Пока нет ответа
: 1,00
Не отмеченоОтметить вопрос
Текст вопроса
Функциями электронных таблиц НЕ являются ...

Выберите один ответ:
обработка больших объемов структурированной информации
поиск информации в сети Интернет
автоматический перерасчёт формул при изменении данных
сохранение и вывод результатов расчётов на печать
построение графиков и диаграмм
создание и редактирование таблиц
Очистить мой выбор
Вопрос 10
Пока нет ответа
: 1,00
Не отмеченоОтметить вопрос
Текст вопроса
Сканер – это …

Выберите один ответ:
устройство ввода-вывода звуковой информации
устройство для соединения компьютеров в глобальную сеть
устройство ввода графической информации
устройство вывода алфавитно-цифровой и графической информации
устройство вывода графической информации на бумажные носители

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Lis25pfi174
01.11.2022 17:39
//PascalABC.NET 3.2 сборка 1318

Var
  arnx,armx,arny,army,delMmax:array[1..1000] of real;
  N,M,res,i,j:integer;
  min:real;
begin
min:=maxreal;
{не уверен существует ли эта константа в fpc, если что, она равна максимальному значению типа real}
readln(N);
for i:=1 to N do
    readln(arnx[i],arny[i]);
readln(M);
for i:=1 to M do
  begin
    readln(armx[i],army[i]);
    delMmax[i]:=-1;
    for j:=1 to N do
      if delMmax[i]<sqrt(sqr(armx[i]-arnx[j])+sqr(army[i]-arny[j]))
 then
 delMmax[i]:=sqrt(sqr(armx[i]-arnx[j])+sqr(army[i]-arny[j]));
    if delMmax[i]<min
 then
      begin
        min:=delMmax[i];
        res:=i;
      end;
 end;
writeln(res);
end.

Пример ввода:
3
2 1
1 2
1 1
3
1 5
3 3
4 2
Пример вывода:
2
0,0(0 оценок)
Ответ:
Serebrennikova217
24.02.2023 23:50
Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:

var s,a:string;
    begin
    write('Введите строку : ');
    readln(s);
    write('Введите слово : ');
    readln(a);
       if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть')
       else writeln('В строке такого слова нет');
    end.

Тест №1
Введите строку : Привет участникам олимпиады!
Введите слово : ник
Слово "ник" в строке есть

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