В самых общих чертах: материальные и информационные технологии объединяет то, что для их создания необходим творец, человек, или человеко-машинный комплекс, создающий новый объект материального или информационного мира. При этом количество материальной или информационной продукции зависит от количества и производительности этих самых творцов. Главное, что отличает материальные технологии от информационных, это последующего распространения продукта среди потребителей. Для материальных технологий важно отсутствие возможности мгновенной репликации. Например, когда Вы имеете 100 килограммов зерна, или 100 автомобилей, то если Вы отдали потребителю 10, у Вас остается только 90 единиц материальной продукции. С информацией наоборот, если у вас есть 100 фильмов, и Вы отдали другу 10, у Вас не только не уменьшилось количество фильмов, а, наоборот, в случае аварии Вашего носителя информации, только те 10 фильмов, которыми Вы поделились и сможете восстановить. Таким образом, отчуждение информации только увеличивает ее количество. Это коренным образом изменит жизнь людей в ближайшее десятилетие. Мы переходим от общества товарно-денежных отношений в информационное общество.
1) var i:integer; begin randomize; i:=random(11); writeln('vipalo chislo: ',i) ;if (i = 7) then writeln('POBEDA!') else writeln('Pobrobyite eshe!'); end.
2) var i_1,i_2,i_3:integer; begin randomize; i_1:=random(11); i_2:=random(11); i_3:=random(11); writeln('vipalo chislа: ',i_1,' ',i_2,' ',i_3);
if (i_1 = i_2)and(i_2 = i_3) then writeln('Winer!') else writeln('Sorry,try again!') end. 3) var i, k, z: integer; begin randomize; k := 0; for i := 1 to 10 do begin z := random(101); write(' ', z); if odd(z) then k := k + 1; end; writeln; writeln('Kolichestvo chetnysh: ', k); end.
var
i:integer;
begin
randomize;
i:=random(11);
writeln('vipalo chislo: ',i)
;if (i = 7) then writeln('POBEDA!') else writeln('Pobrobyite eshe!');
end.
2)
var
i_1,i_2,i_3:integer;
begin
randomize;
i_1:=random(11);
i_2:=random(11);
i_3:=random(11);
writeln('vipalo chislа: ',i_1,' ',i_2,' ',i_3);
if (i_1 = i_2)and(i_2 = i_3) then writeln('Winer!') else writeln('Sorry,try again!')
end.
3) var i, k, z: integer;
begin
randomize;
k := 0;
for i := 1 to 10 do
begin
z := random(101);
write(' ', z);
if odd(z) then k := k + 1;
end;
writeln;
writeln('Kolichestvo chetnysh: ', k);
end.