Var
i, n, j, p, s: longint;
st: string;
b: boolean;
begin
s := 0;
b := false;
readln(n);
for i := 1 to n.ToString.Length do
s := s + strtoint(n.ToString[i]);
for i := 10 to n - 1 do
begin
st := i.ToString;
p := 1;
for j := 1 to st.Length do
p := p * strtoint(st[j]);
if(p = s) then begin b := true;writeln(i); end;
end;
if(b = false) then write('Нет');
end.
1)
var x,y:ineger;
begin
readln(x,y);
if x>y then wrietln('X starshe Y na', x-y) else writeln('Y starhe X na ',y-x);
readln;
end.
2)
var a,b,c:integer;
begin
if a+b>c then
begin
if (a+c>b) and (b+c>a) writeln('Treygolnik')
else writeln('Error');
end
else writeln('Error');
end.
Var
a, b: array [1..3] of real;
r: real;
begin
writeln('Введите углы (A, B, C), затем - радиус');
readln(a[1], a[2], a[3], r);
b[1] := r * 2 * sin(a[1]);
b[2] := r * 2 * sin(a[2]);
b[3] := r * 2 * sin(a[3]);
writeln('a = ', b[1]);
writeln('b = ', b[2]);
writeln('c = ', b[3]);
end.
64=2⁶ значит 6 бит приходится на 1 символ
6*20=120бит
ответ: 120 бит