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

Задача 0. Вычислить значение переменной у по одной из двух ветвей


Задача 0. Вычислить значение переменной у по одной из двух ветвей

👇
Открыть все ответы
Ответ:
insarycheva
insarycheva
17.05.2020

2. ПО – совокупность программ, выполняемых компьютером. Роль – дает возможность пользоваться вычислительными мощностями  

3. Системное и прикладное ПО (и иногда инструментальное)

4. Взаимодействие пользователя с программами, взаимодействие программ и устройств, распределение ресурсов компьютера между запущенными процессами

5. Установка создаёт файлы ОС, загрузка читает уже созданные

6. Компьютер не смог найти операционную систему на диске, с которого он загружается. Может быть связано с повреждением диска, с неверными параметрами загрузки или с использованием не загрузочного диска

4,4(28 оценок)
Ответ:
CheIIOVek
CheIIOVek
17.05.2020
Var a: array [1 .. 10] of integer;
  i, Count, C, tmpLast, tmpFirst: integer;
begin
  write('Введите число C: ');
  readln(C);
  writeln;
  for i := 1 to 10 do
  begin
    write('a[', i, '] = ');
    readln(a[i]);
    if a[i] = C then
    begin
      Count := Count + 1;
      tmpLast := i;
    end;
  end;
  writeln;
  if (Count = 0) then writeln('В массиве нет числа равное С')
  else
  begin
    writeln('В массиве нашлось число, равное С');
    if (Count = 1) then
      writeln('Первое и единственное число в позиции a[', tmpLast, ']')
    else
    begin
      i := 0;
      repeat
        i := i + 1;
        tmpFirst := i;
      until (a[i] = C);
      writeln('Первое такое число a[', tmpFirst, ']');
      writeln('Последнее такое число a[', tmpLast, ']');
    end;
  end;
  readln;
end.

Ввести число с. определить, есть ли в массиве элемент, равный с. найти • номер первого такого элемен
4,4(27 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ