1. Укажите, какие свойства информации отсутствуют в следующих сообщениях.
Аргументируйте свои ответы.
а) Выполни команду: стой там – иди сюда
б) 01 05 32 11 30 00 11 18 14.
в) «Сегодня очень теплая погода».
г) Реши задачу: вычислить площадь прямоугольника, если известна одна его
сторона.
д) Почтальон принес телеграмму от родственников с встретить их,
когда поезд уже прибыл на вокзал.
е) Вам принесли второй раз извещение о посылке.
2.В следующих примерах определите свойства встречающейся информации:
а) Идет вступительный экзамен по математике. Вы попросили у соседа его решение задачи. Шпаргалка содержала полное и правильное решение, но ... на японском языке.
б) На следующий день вступительная комиссия вывесила правильные решения всех задач.
в) Один персидский царь, собираясь завоевать соседнее государство, обратился к оракулу с вопросом: “Что произойдет, если я со своим войском переправлюсь через пограничную реку?” Оракул ответил: “Государь, ты разрушишь великое царство”. Удовлетворившись таким предсказанием, завоеватель переправился со своим войском через реку и был разгромлен войском противной стороны. В гневе он обратился к оракулу, обвиняя того в обмане. На что оракул ответил: “Государь, а разве твое царство было не велико?”
Здравствуй Дедушка Мороз!
Меня зовут Владик и мне 10 лет. Я учусь в школе: как говорит мама, не очень хорошо, но я стараюсь.
Мама воспитывает нас с маленьким братом Никитой сама и очень устает на работе, поэтому я ей как могу. Я очень люблю гулять на улице, кататься на велосипеде и самокате, купаться на море и играть в компьютерные игры. Ты каждый год присылаешь мне подарки и всегда те, которые я и хотел тебе за это. Ребята на улице говорят, что тебя не существует, но я не верю. Подари мне на Новый год гироскутер, моему маленькому братику – самокат с божьей коровкой, а маме – хорошего мужа, папу и здоровья. Поздравляю тебя с Новым годом и желаю, чтобы ты никогда не болел и получал хорошую пенсию. До встречи в следующем году.
До свиданья! Твой Владик.
Объяснение:
var a:array[1..4, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 4 do
for j:=1 to 5 do begin
read(a[i,j]);
if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j];
end;
writeln('Сумма элементов кратных 3-м и > 20 = ',k);
end.
Задача №2
var a:array[1..5, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
if i=j then k:=k+a[i,j];
end;
writeln('Сумма элементов главной диагонали = ',k);
end.