Установите соответствие:
13 div 3

abs(-8.5)

sqrt(9)

1.

8.5

2.

4

3.

3

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.

смотря какая передача и каких данных, много чего придумать можно, мне кажется) телефон, радио, модем,рация. или просто- передатчик.

попробуйте так (turbo pascal):

program 1;

var s: string;

c: integer;

begin

write('vvedite nazvaniye zhivotnogo');

read(s);

writeln('vvedite kolichestvo syedennyh gribov');

readln(c);

writeln(s, ' ', 'syest', ' ', c, ' ', 'gribov');

end.

9 кбатй = 73728 бит (кбайт=8192 бит)

73728/1536=48сек

512*48=24576бит=3072 байт ( 1 байт = 8 бит)