var a:integer; b:integer; y:integer;
begin
///вводим значения
read(a,b);
y:=sqr(a)+b*b*b-sqr(a)+b*b*b;
/// выводим значения
write(y);
end.
12
3
54
Var m,v:integer;
Begin
write('m='); readln(m);
write('V='); readln(v);
writeln('P=',m/v);
<span>End.</span>
Var i:integer;
begin
for i:=1 to 30 do
if i mod 2=0 then write(i,' ');
writeln;
for i:=10 to 20 do
if i mod 2=1 then write(i,' ');
end.
запишем условие: N=64, K=20, I=?
решение: найдем вес одного символа: 64=2^i, i=6 бит
I=K*i=20*6=120 бит
Const N = 10;Const M = 10;Var A:Array [1..N, 1..M] Of Integer; i, j, imax, jmax, imin, jmin, temp:Integer; Begin randomize; For i := 1 to N do Begin For j := 1 to M do Begin A[i, j] := random(1000); End; End; imin := 1; imax := 1; jmin := 1; jmax := 1; For i := 1 to N do Begin For j := 1 to M do Begin If A[i, j] > A[imax, jmax] then Begin imax := i; jmax := j; End; If A[i, j] < A[imin, jmin] then Begin imin := i; jmin := j; End; End; End; writeln('first elem: ', A[imax, jmax], ', second elem: ', A[imin, jmin]); temp := A[imin, jmin]; A[imin, jmin] := A[imax, jmax]; A[imax, jmax] := temp; writeln('first elem: ', A[imax, jmax], ', second elem: ', A[imin, jmin]);End.