Var a,a1,a2,a3: integer;
begin
write ('Введите трехзначное число: '); read (a);
a1:=a div 100 mod 10;
a2:=a mod 100 div 10;
a3:=a mod 10;
writeln ('Полученное число: ',a3,a1,a2);
end.
Объем информации в письме народа x:
50 * log(2)16 = 50 * 4 = 200 бит
Объем информации в письме народа y:
40 * log(2)32 = 40 * 5 = 200 бит
Объемы информации в письмах равны
Var r:array[1..3,1..3] of integer;i,j,n,k,sum:integer; b:array[1..30]of integer;beginrandomize;writeln('Исходная матрица: ');for i:=1 to 3 dobeginfor j:=1 to 3 dobeginr[i,j]:=random(15)-5;write(r[i,j]:3);end;writeln;end;// cумма диагоналиwriteln;for i:=1 to 3 dobeginfor j:=1 to 3 dobeginif i=j then beginwrite(r[i,j]:3);sum:= sum + r[i,j];end elsewrite(' ':3);end;writeln;end;writeln(sum);end.
I:integer;
s:string;
for i:=1 to length(s) do
begin
if s[i]='*' then s[i]:='_';
end;
вроде всё, программу сам оформляй