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

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

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

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

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

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

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

сторона.

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

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

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

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

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

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

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

👇
Открыть все ответы
Ответ:
машуля125
машуля125
25.03.2021

1:

var N,k,s:integer;

BEGIN

s:=0;

readln(N,k);

N:=abs(N);

while N>0 do begin

if (N mod 10=k) then

s:=s+1;

N:=N div 10;

end;

writeln(s);

end.

2:

var N:integer;

s:string;

BEGIN

readln(N);

s:=IntToStr(N);

if (s[1]=s[Length(s)]) then

writeln('ДА') else

writeln('НЕТ');

end.

3:

var N,p,s,k:integer;

BEGIN

readln(N);

p:=1;

s:=0;

k:=0;

while N>0 do begin

p:=p*(N mod 10);

s:=s+(N mod 10);

k:=k+1;

N:=N div 10;

end;

writeln('Количество цифр = ',k);

writeln('Сумма цифр = ',s);

writeln('Произведение цифр = ',p);

end.

4,7(78 оценок)
Ответ:
flinko4
flinko4
25.03.2021

программа генерирует массив случайной длины от 10 до ста элементов с значениями в диапазоне 10..9999999

затем выводит все элементы у которых первая цифра больше второй.

var

   n : integer;

   d : array of integer;

   

begin

   n := random(10, 100);

   d := new integer[n];

   d := arrRandom(n, 10, 9999999);

   for var i := 0 to n-1 do begin

       var a1, a2 : integer;

       a1 := d[i];

       repeat

           a1 := a1 div 10;

       until a1 < 10;

       a2 := d[i] mod 10;

       if a1 > a2 then writeln(d[i]);

   end;

end.

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