Интернет это всемирная информационная компьютерная сеть, связывающая между собой как пользователей компьютерных сетей, так и пользователей индивидуальных компьютеров для обмена информацией.
Program Slovo;
var
s1,s2: string;
begin
s1:='абитуриент';
s2:=s1[2]+s1[5]+s1[9]+s1[10] ; //s1[2] = 'Б' s2[5]='у' s2[9]='н' s1[10]='т'
write(s2);
end.
1)
var
com,i:integer;
begin
for i:= 1 to 101 do
if i mod 2 = 1 then
com:= com + i * i+1;
Writeln(com);
end.
Результат:
176902
2)
var
sum, x:Real;
begin
while x < 100 do begin
sum := sum + x;
x:= x+ 0.5
end;
Writeln(sum);
end.
Результат:
9950
Используем формулу I = log(2)1/p
5 = log(2) [1/p(красн)]
p(черн) = 2*p(красн)
I(черн) = log(2) [1/ p(черн)] = log(2)[1/ (2*p(красн))] =
log(2)1/2 + log(2)[1/p(красн)] = -1+5 = 4 бита
Program plov ;
var day : integer ;
var km , sum : real ;
begin
day := 1 ;
km := 3 ;
sum := km ;
while ( sum <= 30 ) do begin
day := day + 1 ;
km := km * 1.1 ;
sum := sum + km ;
end ;
writeln ( 'day=' , day ) ;
<span>end.</span>