Program time;var x, a, b, c, d: integer;begin readln(x); a:= x div 1000; b:= (x mod 1000) div 100; c:= (x mod 100) div 10; d := x mod 10; writeln(d,c,b,a);end.
Обозначим точку нулем, а тире - единицей.
Тогда двухзначный код может образовать два в квадрате комбинаций, трехзначный код может образовать два в третьей степени комбинаций, а четырехзначный - два в четвертой степени комбинаций.
Ответ: 28 символов.
Ответ:
program p_1;
const n=15;
var i:integer;
p:real;
a:array [1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(130)-50;
writeln('a[',i,'] = ',a[i])
end;
p:=1;
for i:=1 to n do p:=p*a[i];
writeln;
writeln('p = ',p)
end.