Var<span> a,f: real;</span><span> n,i,g: integer;</span>begin<span> read(a,n);</span><span> if n<0 then begin</span><span> g:=n;</span><span> n:=-n;</span><span> end;</span><span> f:=1;</span><span> for i:=1 to n do</span><span> f:=a*f;</span><span> if g<0 then write(1/f)</span><span> else write(f);</span><span> readln;</span><span> readln</span><span>end.</span><span> </span>
D:\Уроки\8 класс\Презентации\Введение.ppt
Var i,a1,a2:integer;
sum:longint;
begin
a1:=1;
a2:=2;
sum:=0;
while (a1<102) or (a2<102) do
begin
sum:=sum+(a1*a2);
a1:=a2+1;
a2:=a1+1;
end;
writeln(sum);
end.
Х=187
x>0
да
у=2х
у=2*187
у=374
Такие задачи решаются формулой
2^i = N
где i - количество бит
N - количество различных символов
2^5 = 32
Ответ:
В) 32