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

Исследовать конфигурацию конкретного ПК с сервисных программных средств. При этом: 1) определить набор аппаратных средств (функциональных устройств), их типы, имена, идентификаторы;

2) определить набор установленных системных программных средств, их имена, типы, идентификаторы;

3) дать краткую характеристику (определение, назначение, функции и др.) аппаратным и системным средствам;

4) выделить в отдельную группу компоненты конфигурации, которые можно причислить к аппаратно-программным средствам;
5) определить разрешение экрана и качество цветопередачи;

6) определить тип устройства для клавиатуры;

7) определить тип оборудования для мыши;

8) определить полное имя компьютера и рабочую группу.

👇
Открыть все ответы
Ответ:
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

a)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a>b then Writeln('Первое число больше второго')
  else
    if b>a then Writeln('Второе число больше первого')
    else Writeln('Числа равны')
end.

b)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a<b then Writeln('Первое число меньше второго')
  else
    if b<a then Writeln('Второе число меньше первого')
    else Writeln('Числа равны')
end.
4,4(8 оценок)
Ответ:
Андрей0126
Андрей0126
25.06.2022
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var st:='balloon duster tooth loot cooperation'; // не вводим
  // var st:=ReadlnString; // если хочется вводить
  var s:=st.ToWords; // массив из слов s[i]
  s.Println; // показать исходный массив слов
  // собственно решение
  var i:=s.Select(w->w.Length).ToArray.IndexMin; // индекс короткого слова
  s[i]:=s[i].Replace('oo','');
  s.Println; // результат
end.

Результат
balloon duster tooth loot cooperation
balloon duster tooth lt cooperation
4,6(100 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ