Uses crt;
Var a: integer;
Begin
Writeln('Введите число:');readln(a);
If a>0 then writeln('Ваше число в квадрате:',power(a,2));
Else writeln('Ваше число в кубе:',power(a,3));
End.
=498 вроде бы я не очень понимаю
Такое устройство называется датчик.
Как правило, электрический.
1)32768 бит /8 (чтобы узнать сколько байтов)=4096 байт
2)4096/1024=4 килобайт