1) Жестами(человек общается с кем то с их помощью)
2) Написать(ученик показывает тетрадь учителю с дом.раб.)
3) Показать(например презентация классу)
4)Мама приносит еду и идут запахи(это запах, передача информации с помощью запаха)
5) Школьник садится за парту и он ощущает стол(тактильный способ передачи информации).
var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.
Нам надо найти I
I=K×i
I=80×i
В русском алфавите 32 буквы
значит
32=2в степени i
i=5
I=80×5=400
Ответ:400бит
Такая информация скорее всего называется устаревшей
Var
A,R:real;
i,L,z:integer;
S:string;
Begin
Read(S);
L:=Length(S);
i:=1;
R:=0;
While (S[i]in['0'..'9'])and(i<L) do
Begin
R:=R*10+StrToInt(S[i]);
i:=i+1
End;
While i<L do
Begin
Case S[i] of
'+':z:=0;
'-':z:=1;
'*':z:=2;
'/':z:=3;
End;
i:=i+1;
A:=0;
While (S[i]in['0'..'9'])and(i<L) do
Begin
A:=A*10+StrToInt(S[i]);
i:=i+1
End;
if i=L then A:=A*10+StrToInt(S[L]);
Case z of
0:R:=R+A;
1:R:=R-A;
2:R:=R*A;
3:R:=R/A;
End;
End;
WriteLn('R = ',R);
End.