Const n=10;
var
a:array[1..n,1..n] of integer;
i,j:integer; p1,p2:real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
p1:=1; p2:=1;
for i:=1 to n do
begin
p1:=p1*a[i,i];
p2:=p2*a[i,n-i+1]
end;
writeln('p1 = ',p1,' p2 = ',p2);
end.
Пример (для n=5):
Исходный массив:
1 10 14 0 5
12 13 13 5 0
7 7 8 7 14
5 11 3 17 14
12 1 19 17 10
p1 = 17680 p2 = 26400
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var a:=ReadInteger.ToString;
Writeln(a=a.Inverse)
end.
<u>Примеры</u>
2441
False
1991
True
<u>№2</u>
begin
var n:=int64(ReadInteger);
var s:=n.ToString;
var s2:=(n*n).ToString;
if s2.Right(s.Length)=s then Writeln('Афтоморф')
else Writeln('Не автоморф')
end.
<u>Примеры</u>
625
Афтоморф
1020
Не автоморф
var n,count:integer;
begin
repeat
readln(n);
if(n<>999) then inc(count);
until(n=999);
writeln(count);
readln;
end.
- (N-мощность алфавита, i-количество бит для 1 символа, k-количество символов, I-информационный объём)
N=256 =>i=8 бит
I=1/16 мбайта
k-?
I = 1024*1024*8/16 =524 288 бит
<u><em>k = I/i = 524 288/ 8 = 65 536 символов</em></u>
2. а) 256 бит = 256/8= 32 байта
б) 0.5 мбайт = 0.5*1024*1024=524 288 байт
в) 12бит = 12/8 = 1.5 байта
г) 1.25 кбайт = 1.25*1024=1280 байт
Как то раз анонимщик гулял в сети. Папа ему говорил не заходи в соц. сети, а анонимщик не послушал отца и залез в соц. сеть. Анонимщику было весело но его заразили вирусы. Он быстро вышел из соц сети и вирусы исчезли. Вот так слушатели анонимщик спас себя от вирусов.
Не заходите в соц. сети они опасны
