Natsha88
22.05.2020 21:14

БЫСТРЕЕ Какие системы программирования вам известны? Опишите их назначение.

Задание 2 ( ).

Дайте определение термину «прикладное программное обеспечение». Что входит в состав прикладного программного обеспечения? Приведите примеры прикладного программного обеспечения.

Задание 3 ( ).

Какое программное обеспечение компьютера является базовым? Дайте определение и приведите примеры.

Задание 4 ( ).

Заполните таблицу, выяснив, какое программное обеспечение установлено на вашем компьютере (ноутбуке или телефоне).

Программное обеспечение

Название установленного программного обеспечения

Антивирус

Программы для работы с текстом

Программы для работы с графикой

Программы для работы с видео и со звуком

Архиватор

Программы для выполнения вычислений

Программы для работы с презентациями

Программы для мгновенного обмена сообщениями

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Тунеков23
13.03.2022 06:08

var a, b, c, d, min, max: integer;

begin

 // Min

 readln(a, b, c, d);

 if (a <= b) and (a <= c) and (a <= d) then min := a

 else if (b <= a) and (b <= c) and (b <= d) then min := b

 else if (c <= a) and (c <= b) and (c <= d) then min := c

 else if (d <= a) and (d <= b) and (d <= c) then min := d;

 // Max

 if (a >= b) and (a >= c) and (a >= d) then max := a

 else if (b >= a) and (b >= c) and (b >= d) then max := b

 else if (c >= a) and (c >= b) and (c >= d) then max := c

 else if (d >= a) and (d >= b) and (d >= c) then max := d;

   

 writeln('Min: ', min);

 writeln('Max: ', max);

end.

0,0(0 оценок)
Ответ:
Palinka1
23.03.2023 06:37
// Паскаль
// Программа поддерживает латиницу, кириллицу и дефисы

const
  // Первая буквы, англ. "a" - 65, но может быть дефис #45
  first_letter = #45;
  // Последняя буквы, рус. "я"
  last_letter = #1103;

var
  x: string;
  i: integer;
  c: char;
  // Сколько раз встречает буква в слове
  count: array[first_letter..last_letter] of integer;
begin
  readln(x);
  // Обнуляем массив
  for c := first_letter to last_letter do
    count[c] := 0;
  // Подсчитываем буквы в слове
  for i := 1 to length(x) do
    inc(count[x[i]]);
  // Выводим слово без букв, встречающихся 3 раза
  for i := 1 to length(x) do
    if count[x[i]] <> 3 then
      write(x[i])
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота