Program pyati;
var a:integer;
begin
Writeln('Введите число');
Readln(a);
a:=a div 100;
a:=a mod 100;
a:=a mod 10;
Writeln(a)
end.
1.
Function Check(A : Longint) : Boolean;
Begin
If A>9 then Check:=((A mod 10)=(A div 10 mod 10)) and Check(A div 10) else Check:=True;
end;
Var N : Longint;
Begin
Readln(N);
Writeln(Check(N));
end.
Клод Шэннон (1916—2001) называется «отцом теории информации<span>»</span>
10кб=10*2^10*2^3 бит
256000=2^8*10^3
10*2^10*2^3/2^8*10^3=2^5\100=32\100=0,32 с