1.Бит
2.Что бы узнать сколько содержится байт,килобайт информации
3.Единицы измерения информации
Ответ:
program Num12;
var
i, n, c: Integer;
p: Double;
begin
c := 0;
p := 1;
for i := 83 downto 9 do begin
n := i * 12;
Write (n, ' ');
Inc (c);
p := p * n;
end;
WriteLn;
WriteLn ('Количество = ', c);
WriteLn ('Произведение = ', p);
ReadLn;
end.
<span>var n,i,p:integer;
begin
write('n = '); readln(n);
p:=1;
for i:=1 to n do
if (i mod 3 = 0)and(i mod 10 = 1) then p:=p*i;
writeln('p = ',p);
end<span>.
Пример:
</span><span>n = 80
p = 1071
</span></span>
Var n, m: integer;
begin
readln(n, m);
writeln(exp(ln(n) * m));
<span>end.
Можно было через циклы, но там слишком много условностей (вдруг степень отрицательна?) а так в одно действие уложилось)</span>