<span>Информация как таковая нематериальна, пока ее не нанести на носитель, однако
она играет важнейшую роль в жизни человека. Можно смело сказать информация -
главная ценность обладающий информацией обладает состоянием, смотря как он
его вложит и употребит. В силу своей специализации и наклонностей в данном
реферате я буду раскрывать тему в области Internet-а и прочих прокомпьютерных
технологий, однако не стоит забывать что информация как таковая одинакова
куда ьы и где бы ее не записали она всеравно остается информацией т.е.
данными.
1.1 О ценности информации
С появлением информационных технологий человеческое общество фактически
перешло в новую фазу развития. И связано это с тем, что достижения
компьютерной техники позволяют неограниченно и крайне дешево размножать такую
вещь, как информацию. Ранее, например, лет пятьсот назад, для получения новой
копии информации приходилось прилагать немало усилий: переписать книгу (а
перед этим еще подготовить листы для книги из пергамента), прочитать и
выучить текст, нарисовать копию картины, перед этим подготовив холст и
краски. Зачастую усилия на создание новой копии источника информации были
сравнимы с усилиями на создание самого этого источника, - например,
переписывание книг занимало года. И создавать новые копии могли лишь
специально подготовленные люди: ученые монахи-переписчики, художники, поэты. </span>
А) необходимо
Б)достаточно
В)необходимо
Г)необходимо
Д)необходимо
т.к. вариантов нет, то Х может принимать значения от 4 до бесконечности
Var a: string;
i: integer;
begin
readln(a);
for i := 0 to length(a) do
if (a[i] = 'и') then a[i] := 'е';
writeln(a);
<span>end.
Это на Pascal'е =)</span>
Ваш алгорим не оптимален, совершенно незачем делать "<em>for k:=100 to 1000000000 do"</em>, т.к. по условию необходимо проверить лишь трехзначные числа.
uses crt;
var a,b,k:integer;
begin
for k:=100 to 999 do
if k mod 20 =0
then begin
a:= k div 20;
b:= k div 10;
if ((a mod 10) + (a div 10)) = ((k mod 10) + (b mod 10) + (a div 10)) then writeln(k);
end;
end.