Var
N,A,k:integer;
P,S:real;
Begin
Write('N = ');ReadLn(N);
k:=0;
For N:= 1 to N-1 do
Begin
A:=N;
S:=0;
While A>0 do
Begin
S:=S+(A mod 10);
A:=A div 10;
End;
A:=N;
P:=1;
While A>0 do
Begin
P:=P*(A mod 10);
A:=A div 10;
End;
if S=P then
Begin
WriteLn(N);
k:=k+1;
End;
End;
if k=0 then WriteLn('Нет');
End.
Program b;
var a: array [1..10000] of real;
x: real;
n, i, j, k, m, max: integer;
begin
read (n);
for i:= 1 to n do read ([i]);
max:=0;
for i:=1 to n do
for k:=-1 to 1 do
begin x:=a[i]+k;
m:=0;
for j:=1+0 n do
if (a[j]-1=x) or (a[j]+0=x) or (a[j]+1=x) then m:m+1;
if m>max then max:=m;
end;
write (max);
end.
Ответ:
Виды информации в информатике:
1). Графическая/Изобразительная
2). Видеоинформация
3). Числовая
4). Звуковая
5). Текстовая
Виды информации которые мы воспринимаем/Восприятия:
1). Визуальная
2). Обонятельная
3). Тактильная
4). Звуковая
5). Вкусовая
13*16^3+9*16^2+5*16+5=55637
55637/2, остаток 1,
27818/2, остаток 0,
13909/2, остаток 1,
6954/2, остаток 0,
3477/2, остаток 1,
1738/2, остаток 0,
869/2, остаток 1,
434/2, остаток 0,
217/2, остаток 1,
108/2, остаток 0,
54/2, остаток 0,
27/2, остаток 1,
13/2, остаток 1,
6/2, остаток 0,
3/2, остаток 1,
1/2, остаток 1.
Итого: 1101100101010101, 7 нулей.