Это символ называется "собака" в основном используется в электронных постах, знаменитый символ молодёжи
Вот тебе решение первой .
program p1;
uses crt;
var a:array[1..10,1..10] of integer;
i,j,n,max,min,s:integer;
begin
read(N);
for i:=1 to N do begin
For j:=1 to N do begin
a[i,j]:=random (21) -10 ;
write(a[i,j]:5);
end;
writeln;
end;
max:=a[1,1];
min:=a[1,1];
for i:=1 to N do begin
If max<a[i,i] then begin
max:=a[i,i];
end;
If min>a[i,i] then begin
min:=a[i,i];
end;
end;
s:=max+min;
writeln;
write(s);
end.
Program pr;
uses crt;
Var a, b, c, y:real;
Begin
Writeln('Введите a, b, c');
readln(a, b, c);
y:=exp(3*ln(b))+sqrt(c)-sqrt(a);
Writeln('y=', y);
readln;
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:BigInteger;
if not BigInteger.TryParse(ReadlnString('n='),n) then
Writeln('Введенное не является целым числом')
else
Writeln(n.IsPowerOfTwo?'YES':'NO')
end.
<u>Пример</u>
n= 2037035976334486086268445688409378161051468393665936250636140449354381299763336706183397376
YES
Q= 100 Мбит/с = 4*25*2^(23) бит/с = 25*2^(25) бит/с
F= 6400 Кбайт =2^6*2² *25 * 2^(13) бит = 25*2^(21) бит
Избыт. =20%; 100%+20%=120% или 1,2 части
Fi=1,2*25*2^(21) бит
Время t = Fi / q = 1,2*25*2^(21) / (25*2^(25)) = 1,2 / 2^4 = 1,2/8= 0,15 c