Первое задание:
var d: array [1..30] of integer;
i,s:integer;
begin
for i:=1 to 30 do
readln d[i];
s:=1;
for i:=2 to 29 do
s:=s*d[i];
writeln(s)
<span>end.</span>
Запишим коды каждой буквы:А = 1000Б = 1001В = 1010Г = 1011 Запишем последовательность БГАВ = 1001101110001010 Чтобы перевести в восьмеричный код из двоичного, следует начиная с конца разбить код на тройки и каждую уже перевести. Получится:001 001 101 110 001 010 (впереди числа, если не хватаем чисел, можно дописывать 0. Они не дают результата, просто удобны для записи). Переводим кажое число путем развернутой )формы записи и счета: <span>Ответ: 115612</span>
Так же, как и целое число - представляя дробь в расширенной записи, только теперь показатели степени будут отрицательными:
2048*1536=>3 145 728*3=>9 437 184 byte=>9 437,184 Kb=>9,437184 Mb
Uses crt;
const N=30;
var a:array [1..N] of integer;
x,min,max,t:integer;
begin
for x:=1 to N do
begin
write('a[',x,']:');
readln(a[x]);
end;
min:=1; max:=1;
for x:=1 to N do
begin
if a[x]<a[min] then min:=x;
if a[x]>a[max] then max:=x;
end;
t:=a[max];
a[max]:=a[min];
a[min]:=t;
for x:=1 to N do
write(a[x]:4);
end.