1. Укажите, какие свойства информации отсутствуют в следующих сообщениях.
Аргументируйте свои ответы.
а) Выполни команду: стой там – иди сюда
б) 01 05 32 11 30 00 11 18 14.
в) «Сегодня очень теплая погода».
г) Реши задачу: вычислить площадь прямоугольника, если известна одна его
сторона.
д) Почтальон принес телеграмму от родственников с встретить их,
когда поезд уже прибыл на вокзал.
е) Вам принесли второй раз извещение о посылке.
2.В следующих примерах определите свойства встречающейся информации:
а) Идет вступительный экзамен по математике. Вы попросили у соседа его решение задачи. Шпаргалка содержала полное и правильное решение, но ... на японском языке.
б) На следующий день вступительная комиссия вывесила правильные решения всех задач.
в) Один персидский царь, собираясь завоевать соседнее государство, обратился к оракулу с вопросом: “Что произойдет, если я со своим войском переправлюсь через пограничную реку?” Оракул ответил: “Государь, ты разрушишь великое царство”. Удовлетворившись таким предсказанием, завоеватель переправился со своим войском через реку и был разгромлен войском противной стороны. В гневе он обратился к оракулу, обвиняя того в обмане. На что оракул ответил: “Государь, а разве твое царство было не велико?”
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.