1. Укажите, какие свойства информации отсутствуют в следующих сообщениях.

Аргументируйте свои ответы.

а) Выполни команду: стой там – иди сюда

б) 01 05 32 11 30 00 11 18 14.

в) «Сегодня очень теплая погода».

г) Реши задачу: вычислить площадь прямоугольника, если известна одна его

сторона.

д) Почтальон принес телеграмму от родственников с встретить их,

когда поезд уже прибыл на вокзал.

е) Вам принесли второй раз извещение о посылке.

2.В следующих примерах определите свойства встречающейся информации:

а) Идет вступительный экзамен по математике. Вы попросили у соседа его решение задачи. Шпаргалка содержала полное и правильное решение, но ... на японском языке.

б) На следующий день вступительная комиссия вывесила правильные решения всех задач.

в) Один персидский царь, собираясь завоевать соседнее государство, обратился к оракулу с вопросом: “Что произойдет, если я со своим войском переправлюсь через пограничную реку?” Оракул ответил: “Государь, ты разрушишь великое царство”. Удовлетворившись таким предсказанием, завоеватель переправился со своим войском через реку и был разгромлен войском противной стороны. В гневе он обратился к оракулу, обвиняя того в обмане. На что оракул ответил: “Государь, а разве твое царство было не велико?”

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Никита2OO7

22.08.2021 13:25

с информатикой нужно решить задачу на питоне Дано натуральное число N.Найти и вывести все числа в интервале от 1 до N-1,у которых все сумма цифр совпадает с суммой...

Wow01

25.11.2020 09:25

Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 720×350 и палитрой из 256 цветов....

ShiroChan21

02.11.2021 19:54

Движение робота по линии. Урок 1 передает на монитор блока управления разность значений яркостей внешнего освещения и освещенного светапередает на монитор блока...

2346573920316

23.10.2020 20:01

Pascal abc пользователь вводит массив из 5 целых чисел , найти сумму этих чисел. (напиши те код )...

didlok

23.05.2023 08:02

Вчем может быть проблема? 50 ! program z51; var n,m,p,k: integer; begin n: =35; m: =15; p: =4; k: =0; if (n =35) or (p 3) then begin k: = m div(p-2); if (m div(p-2)...

mamatvoeymamy

11.11.2022 04:45

Дана не пустая последовательность целых чисел, оканчивающаяся нулём. найдите сумму всех чётных чисел, кратных 3.program z1; varch,s: integer; beginwriteln( введите...

Milokgre

09.01.2023 05:44

Внимание! строки вводятся как на , так и на языке. ввод строк и текста осуществляется с консоли. дан текст. заменить каждую букву перед буквой а символом ‘*’. (написать...

глупыйоладушек

12.11.2020 16:26

написать программу на языке c++...

пукимэн228

16.02.2023 07:24

Одноканальный монофонический звук оцифрован с частотой 11кгц сколько значение сигнала записано за2 секунды ...

John009

26.04.2022 00:18

Э чмошники кто подскажитКакой пк лучше брать для игр и ценовой сигмент...

Ответ:

neannopad7

12.08.2020 01:16

Uses
    System.Collections.Generic,
    System;

var
    simple: List<integer> := new List<integer>;
    i, n, p: integer;
    m: longint;

begin
    read(n);
    for i := 2 to n do
    begin
        m := 1;
        foreach s: integer in simple do
            m := m * i mod s;
        if m > 0 then begin
            simple.Add(i);
//            write(i, ' ');
        end;
    end;
    writeln();

    foreach s: integer in simple do
    begin
        if Math.Pow(2, s) - 1 <= longint.MaxValue then begin
            m := round(Math.Pow(2, s) - 1);
            if (m <= n) and simple.Contains(m) then
                write(m, ' ');
        end;
    end;
end.

0,0(0 оценок)

Ответ:

ollolinda213

30.01.2021 15:24

1.
var
a: array [1..11] of integer;
i, min, imin: integer;
begin
for i:=1 to 10 do read(a[i]);
min:=32000;imin:=0;
for i:=1 to 10 do if (a[i] mod 2) = 0 then
if a[i]<min then begin min:=a[i]; imin:=i; end;
write('Минимальное:', min, ' Индекс:', imin);
end.

2.
function stepen(c, s: integer):integer;
var
j, rez: integer;
begin
rez:=c;
for j:=1 to (s-1) do rez:=rez*c;
stepen:=rez;
end;
var
a: array [1..11] of integer;
i, min, imin: integer;
begin
for i:=1 to 10 do a[i]:=stepen(2, i);
for i:=1 to 10 do write(a[i], ' ');
end.

Если возникли вопросы или ошибки в ходе работы программы, пиши в комментариях.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку