Var num, deg: integer;res: real;i: byte;begin write('Число: '); readln(num); deg:=6; res := 1; i := 0; while i < abs(deg) do begin res := res * num; i := i + 1 end; if deg < 0 then res := 1 / res; writeln(res); readlnend.
1. 8 бит = 1 байт ⇒ 32 бита = 4 байта
2. 1 байт = 8 бит ⇒ 30 байт = 240 бит
3. Алфавит
4. 33 (количество букв в алфавите, или 32, если "Ё" не считать)
2) разделить большой орех на 2 и маленький на 2 и дать по 1 кусочку(маленького и большого) мальчику а остальной пол большого и пол маленького дать карлсону. 1)для сбора урожая им не потребуется мышка. т.к есть сосед или соседка
Uses crt;
vara:array[1..20]of integer;
i,k:integer;
begin
for i:=1 to 20 do
a[i]:=random (20)-10;
for i:=1 to 20 do
write(a[i],' ')
;for i:=1 to 20 do begin
if (a[i]<0) and (a[i]>-5)then
k:=k+1;
end;
writeln;
writeln('кол-во отрицательных чисел больше -5=',k)
<span>end.</span>