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

7. Приведите примеры ситуаций, в которых осуществляется обра ботка информации, ведущая к: а) получению новой информации;
б) изменению формы представления существующей информации
8. Боря, Витя, Гриша и Егор встретились на Всероссийской олим- пиаде по информатике. Ребята приехали из разных городов: Мос. квы, Омска, Санкт-Петербурга и Кирова. Известно, что Боря жил в одной комнате с мальчиком из Кирова и ни один из этих двух мальчиков никогда не был ни в Москве, ни в бурге. Гриша жил в одной комнате с мальчиком из Москвы, а ве- черами к ним заходил приятель из Кирова. Егор и мальчик из Москвы увлекались игрой в шахматы. Кто из ребят откуда приехал?
11. Вы отправляете товарищу SMS-сообщение с домашним задани- ем по математике. Рассмотрите эту ситуацию с информацион- ной точки зрения, указав источник информации, кодирующее устройство, канал связи, декодирующее устройство и приемник информации.

👇
Открыть все ответы
Ответ:
docogov
docogov
07.02.2021
Program lyly;

const
  n = 4;

var
  a: array[1..n, 1..n] of integer;
  i, j, s: integer;
  sr: real;

begin
  s := 0;
  Writeln('Исходная матрица');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(256);
      Write(a[i, j]:5);
      s := s + a[i, j]
    end;
    Writeln
  end;
  sr := s / sqr(n);
  Writeln('Средняя яркость', sr);
  Writeln('Результирующая матрица');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if a[i, j] <= sr then a[i, j] := 0 else a[i, j] := 255;
      Write(a[i, j]:5)
    end;
    Writeln
  end
end.

Тестовое решение:

Исходная матрица
  108  247    9  175
   10   80  123   80
   75  165   82  128
  167  168    6   27
Средняя яркость103.125
Результирующая матрица
  255  255    0  255
    0    0  255    0
    0  255    0  255
  255  255    0    0
4,6(50 оценок)
Ответ:
dylanboy
dylanboy
07.02.2021
Program treug;
var a,b,c:integer;
label l1,l2;
begin
l1:
writeln ('Укажите стороны треугольника:'); read (a,b,c);
if (a<=0) or (b<=0) or (c<=0) then begin 
writeln ('Проверьте правильность введенных данных'); goto l1;
end;
if (a=b) and (a=c) and (b=c) then begin
writeln ('Треугольник с указанными параметрами - равносторонний'); goto l2; end;
if (a=b) or (a=c) or (b=c) then begin
writeln ('Треугольник с указанными параметрами - равнобедренный'); goto l2;
end;
writeln ('Треугольник с указанными параметрами - разносторонний');
l2:
end.
4,6(30 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ