uses crt;
var
a:array [1..1000] of integer;
max,i,k:integer;
begin
write('Введи количество элементов массива: '); read(k);
for i:=1 to k do
begin
a[i]:=random(100)-50;
write(a[i]:4);
end;
writeln;
max:= a[1];
for i:=1 to k do
if a[i]>max then max:=a[i];
writeln('Максимальный элемент: ',max);
writeln ('Сумма первого и максимального элементов: ',max+a[1])
end.
Sub z()
n = InputBox("Введите троичное число")
Do
d = d + (n Mod 10) * 3 ^ i
i = i + 1
n = n \ 10
Loop Until n = 0
MsgBox ("Десятичное: " & d & "; восьмеричное: " & Oct(d))
d = 0
i = 0
n = InputBox("Введите восьмеричное число")
Do
d = d + (n Mod 10) * 8 ^ i
i = i + 1
n = n \ 10
Loop Until n = 0
x = d
Do
t = t & (x Mod 3)
x = x \ 3
Loop Until x = 0
t = StrReverse(t)
MsgBox ("Десятичное: " & d & "; троичное: " & t)
End Sub
так понимаю это не степени, а система счисления. Переведем в десятичную и сравним.
1110^2 = 14
12^8 = 10
Ответ: 1110^2 > 12^8
Нужно с конца про нумеровать их(над ними карандашом написать 0,1,2,3,4...)потом 1×2\6 ( 6 писать как например 2в квадрате над верхом с право)(×2 потому что нужно перевести в десятичную из двоичной) получается :1×2\6+0×2\5+0×2\4+0×2\3+1×2\2+1×2\1+0×2\0=64+4+2=70( при умножении на ноль результат ноль,так што умножай то что с единицей!!!)
1 символ = 2 байта
1). 60*2=120 байт - на 1 строке
2). 120*40=4800 байт - на 1 странице