Program enot;
VAR p:real;
i,n:integer;
BEGIN
p:=1;
read(n);
for i:= n downto 1 do
p:= p*i;
writeln(p:4:2);
<span> end.</span>
Длина=3
Всего цвета=3
На первое место можно поставить любой из 3 цветов,на второе и третье место тоже,тогда
3*3*3=27
Ответ:27
Как только эта информация отчуждается от человека, она превращается из сведений (смысла, знания) в данные, и только если данные попадают к человеку, который знает закон (правила) интерпретации (придания смысла) данным, только тогда у адресата данные преобразуются в смысл.
Var ma,kol,bol,n,x,i:integer;beginread(n);for i:=1 to n do begin read(x); if x<30 then inc(bol); if x>ma then ma:=x; end;writeln(ma);if bol>0 then writeln('YES') else writeln('NO'); end.