Определи правило шифрования и продолжи шифр слова «компьютер». ЛН очень

var

n: integer;

begin

readln(n);

if (n mod 10)=(n div 100) then

writeln('палиндром')

else

writeln('не палиндром');

end.

если его поставить так, чтоб краев рядом не было, куда-нибудь в центр. тогда он всегда будет вертется

v= 36864 бит/с

1 стр.= 2304 сим.* 8 бит= 18 432 бит

4 стр.= 18 432 бит* 4= 73 728 бит=s

t - ?

t= s/v

t= 73728 бит / 36 864 бит/c= 2

ответ: 2

program a1; vara: array [1..15] of integer; a2: array [1..15] of integer; mas1: integer; mas2: integer; raz: integer; i: integer; begin//подключаем датчик случайных чиселrandomize; //цикл заполняющий массивы и нахождение сумм элементов масиваfor i: =1 to 15 dobegina[i]: =random(100); a2[i]: =sqr(a[i])-a[i]; mas1: =mas1+a[i]; mas2: =mas2+a2[i]; end; //находим разницу массивовraz: =mas1-mas2; //выводим на экран 1ый массивwrite('первый массив: '); for i: =1 to 15 dobeginwrite(a[i],'|')end; writeln(''); //выводим на экран 2ой массивwrite('второй массив: '); for i: =1 to 15 dobeginwrite(a2[i],'|')end; writeln(''); //выводим на экран разность массивовwrite('разность сумм элементов массива: ', raz); writeln(''); end.