var a,b,s: integer;
begin
readln(a);
while a>=10 do
begin
b:=a mod 10;
s:=s+sqr(b);
a:=a div 10;
end;
a:=a*a;
s:=s+a;
writeln(s);
readln;
end.
В s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!
const nx = 30; Var i,c,k,j,n:integer;a:array[1..nx] of integer;beginRead(n);randomize;writeln('Получившийся массив:');for i:=1 to n do begina[i]:=random(20)-10; write(a[i],' ');end;for i:=1 to n do beginfor j:=2 to n do beginif a[j] > a[j-1] then beginc:=a[j]; a[j]:= a[j-1];a[j-1]:=c;end;end;end;writeln;for i:=1 to n do write(a[i],' ');end.
Транспортир нужен для измерения углов.
Чаще на Алгебре и геометриии.
Размер стереозаписи (без сжатия) измеряется по формуле:
A = 2*D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение).
3750 Кбайт = 3750*1024 байт; 32 бита = 32/8 байта = 4 байта
T = 3750*1024 / (2*48000*4) = 10 c