Var a,b:integer;
begin
write('a = '); readln(a);
b:=(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10);
writeln('b = ',b);
end.
Пример:
a = 123
b = 132
<u><em>Microsoft QBasic</em></u>
DECLARE FUNCTION max# (a#, b#)
DECLARE FUNCTION min# (a#, b#)
INPUT "a=", a#
INPUT "b=", b#
INPUT "x=", c#
c# = max#(max#(a#, b#), min#(2 * a#, x#)) + 5
PRINT "c="; c#
FUNCTION max# (a#, b#)
IF a# > b# THEN
max# = a#
ELSE
max# = b#
END IF
END FUNCTION
FUNCTION min# (a#, b#)
IF a# < b# THEN
min# = a#
ELSE
min# = b#
END IF
END FUNCTION
3.........................................................
500 байт = 500*8бит=4000бит<span>5 Кб= 5/1024 Мб
87 Гб= 87*1024*1024*1024 байт=93415538688
7 Мб = 7*1024*1024*8 бит =58720256 бит
46 байт = 46/1024/1024Мб=0,0000438690185546875
700000 бит = 700000/8/1024=85,44921875 Кб
№2
32=2^i, следовательно i=5 бит
Тогда объем информации будет равен 3*25*80*5=30000 бит=3750 байт
№3
32=2^i i= 5 бит; Объем 1 сообщения 5*80=400 бит
64=2^i i=6 бит; Объем 2 сообщения 6*70=420 бит
№4
Всего в письме 30*48=1440 символов
900 байт=7200 бит
Информационный вес одного символа 7200бит/1440сим=5 бит
Мощность алфавита 2^5=32 символа.
№5
64=2^i=2^6
Следовательно i=6 бит
№6 решение аналогично №5</span>
<span>uses crt;
var a: array [1..15] of integer;
i: integer;
begin
writeln('Дан массив');
for i:=1 to 15 do
begin
a[i]:=random(41)-20;
write(a[i]:5);
end;
writeln;
writeln('Преобразованный массив');
for i:=1 to 15 do
if a[i] mod 2=0 then write(a[i]/2:5:1)
else write(a[i]*3:5);
end<span>.</span></span>