В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
maschavyaznina
maschavyaznina
05.03.2023 14:28 •  Информатика

Кто знаком с кодировкой расшифровать вот этот код. И сразу говорю что это не ссылка! 063RoMO/0KvRu9CN0rgB0K7QosKH0oXRo9G20ZbSitO00Z3RpdOP0JnQstKY0ZjCscO/06HSuNK707HRkgPTktOH0L7QvdKE0qfDktOA0YLQqxPTkNG90KnStNKY0KUI07/SkNGk0anSp9O80brSiCnRh9G0w4HSitCK0YrRstKUFNC10a7RptKH0a7ClsON0YvQktK+07rTm0fRntCiwqbTqNOFNtCg0LjQiNOz0JbRuNOJ0JnTgNGb0obSvNGs05PRltOX0YPQrNGH0JjDnQbRgyHRi9CmwoHQrdKn0aXSjNGB0rPQum8Y05fSndOWworRttCm0pbSltKVw4bRq9CF053RsdK00LXCndOk047RttCL05/QrQYu0YvCtNOM0I5b0ZvQitKF0LHQl9Kd0ZfRp9GD0oXQlNGR0a5hFtC90bbCm9C0063Rs9GVX9GK07XQidGU04jTqdCpw6140YbSl9GMftO30oQJ0JzQitCG05HCqtKP0prTgdOk0aHSl9Ce0Z7SkdCY0J19CNOO0Kdk04070orCstGn04TCi9OK0IDRhNCD0rXTg9CKwpnTldKh05DQsdKMw4ZS0ZbRntGM0bfSiNGU05rRhsO004XRtdO10afSqdOoFdOe0JPDrtG30YPTtmfTq9Cxw43TjdGF04zTldKt0Y/TqNO304LDtdOa0q/RpNOE0ZXClcO/0p/DidGg0rLSpdGQwqPRjNKw04TRkdC7IdKy0qnQmNGDW9Cq0pXRmtK20JDCt9O3N9GB04IU07PSqdKy0KLTn9OV0J/RuNOv04rCotKt0JLRg9C5CtOU07nSk9KIwr7SrNCf04zDmMOu0p7QjtKSE9C40qRi0o/Ru9O9w6jQo9Oz04/QqtKb0aHQk9GPFDbTkNGQ04jCi9G207/QukXSu9KnwpTQutGR06/RltKLFQ==

Показать ответ
Ответ:
никтма
никтма
01.03.2020 00:15
Program Project1;

var m:array [0..14] of integer; i:integer;

function IsPositive(a:integer):boolean;
begin
  result:=(a>-1);
end;

procedure work;
var min, max, count:integer;
begin
  count:=0;
  min:=m[0];
  max:=0;
  for i:=0 to 14 do begin
    if IsPositive(m[i]) then begin
      inc(count);
      if m[i]>max then max:=m[i];
      if m[i]<min then min:=m[i];
    end;
  end;
  writeln('MAX: ', max);
  writeln('MIN: ', min);
  writeln('Count: ', count);
end;

begin
  for i:=0 to 14 do begin
    write('n: ');
    readln(m[i]);
  end;

  work;

  readln;
end.
0,0(0 оценок)
Ответ:
Юля5454554
Юля5454554
26.01.2023 14:32

Компьютеры, телефоны, мониторы. Без этой техники уже трудно представить жизнь. Исследования учёных влияния компьютерных излучений на здоровье привели в волнение офтальмологов, косметологов, дерматологов и ортопедов. Доктора подтверждают снижение остроты зрения, увеличение веса, ускорение старения кожи лица

Исследования учёных

Западными учёными несколько лет проводились наблюдения изменения кожи лица у двух групп женщин. Одна группа работала за компьютером весь день, другая – время от времени. Отмечено, что у первой группы признаки старения и дряхлости лица появились раньше.

Кожа потеряла эластичность, щёки обвисли, лицо потеряло контур, заметных морщин стало больше, некоторые дамы обзавелись вторым подбородком.

Причина неприятностей – в электростатическом поле, которое создаётся вокруг экрана и сушит воздух. Ещё одна причина – микрочастицы, оседающие и загрязняющие лицо. Глаза краснеют, появляется раздражение и воспаление.

Последствия:

· иссушение кожных покровов;

· расширение и забитость пор;

· излишняя жирность кожи;

· глаза окружены морщинистой сеточкой;

· сухие веки;

· расширенные сосуды на щеках;

· появление второго подбородка;

· мимические морщины.

Исследователями предлагаются профилактические меры, предотвращающие влияние вредных излучений

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