Это невозможно. Т.К в большинстве кодировок нужно минимум 8 бит на символ
Только программы (без примеров):
А)
CLS
DIM a(1 TO 10) AS INTEGER
PRINT "Введите 10 чисел"
FOR i = 1 TO 10
INPUT a(i)
NEXT i
max = a(1)
FOR i = 2 TO 10
IF a(i) > max THEN max = a(i)
NEXT i
PRINT "max = ";max
END
Б)
CLS
INPUT "Введите количество элементов массива"; n
DIM a(n)
FOR i = 1 TO n
INPUT "Введите значение элемента: "; a(i)
NEXT i
max = a(1)
FOR i = 2 TO n
IF a(i) > max THEN max = a(i)
NEXT i
PRINT "max = ";max
END
Program n1;
var y: real;
x: integer;
begin
write('введите x: ');
readln(x);
if x mod 2=0 then y:=x*x else y:=x*x*x;
writeln(y);
end.
Для перевода чисел из двоичной в восьмеричную систему счисления двоичное число делят на группы по 3 разряда (в целой части - справа налево, в дробной - слева направо) и каждую группу заменяют на соответствующую ей восьмеричную цифру.
110000110101(2) = 110 000 110 101(2) = 6065(8)
1010101(2) = 1 010 101(2) = 125(8)
0,10100111001(2) = 0,101 001 110 010(2) = 0,5162(8)
0,1111110001(2) = 0,111 111 000 100(2) = 0,7704(8)
Может так:
Vara:array[1..5]of integer;
a1,a2,a3,a4,a5,max:integer;
function f(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
begin
a1:=random(10);
a2:=random(10);
a3:=random(10);
a4:=random(10);
a5:=random(10);
writeln(a1);
writeln(a2);
writeln(a3);
writeln(a4);
writeln(a5);
writeln;
max:=f(a1,a2);
max:=f(max,a3);
max:=f(max,a4);
max:=f(max,a5);
writeln('max=',max);
<span>end.</span>