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

Приведите пример виртуальной реальности и опишите его назначение.

Пример:

Назначение:

2. Приведите пример дополнительной реальности и опишите его назначение.

Пример:

Назначение:

3. Опишите 2 негативных последствия на психику человека, который злоупотребляет нахождением в виртуальной реальности.

1:

2:​
)))

👇
Открыть все ответы
Ответ:
dianadavletova
dianadavletova
14.12.2021
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
  var flag:=true;
  var k:=0;
  var ap:=a[0];
  for var i:=1 to a.Length-1 do begin
    if a[i]>ap then begin
      if flag then begin k+=1; flag:=false end
      end
    else flag:=true;
    ap:=a[i]
    end;
  Writeln('Кол-во участков возрастания: ',k)
end.

Пример
n= 15
-17 -2 -11 14 6 -3 -16 13 -13 -12 -16 2 15 -1 -20
Кол-во участков возрастания: 5
4,4(52 оценок)
Ответ:
tatynaleonteva1
tatynaleonteva1
14.12.2021
1. Программа "Анкета":
program anketa;
var a,b,d:string;
c:char;
begin
writeln('Введите ваши имя и фамилию в именительном падеже: ');
readln(a,b);
writeln('Введите букву класса: ');
readln(c);
writeln('Введите ваше хобби: ');
readln(d);
writeln('Меня зовут ',a,' ',b,';');
writeln('Я учусь в 7 "',c,'" классе гимназии 524;');
writeln('Моё хобби - ',d,';');
writeln('Периметр прямоугольника равен 30');
writeln('Сегодня ярко светит солнце!')
end.
2. Программа "Опросы":
program oprosy;
var a,b,c:integer;
d:real;
begin
writeln('Введите ваши оценки по пятибалльной шкале: ');
readln(a,b,c);
d:=(a+b+c)/3;
writeln('Ваша средняя оценка за тесты - ',d,'.');
end.
3. Программа "Периметр прямоугольника":
program perimetr;
var a,b,c:integer;
begin
writeln('Введите стороны прямоугольника: ');
readln(a,b);
c:=(a+b)*2;
writeln('Периметр прямоугольника = ',c,'.');
end.
4,8(18 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ