ответ: Pascal ABC.Net
Program Zadacha;
var a,b:array[1..1000] of integer;
n, i, max:integer;
BEGIN
write('Задайте количество элементов массива N<1000: ');
read(n);
max:=-30000;
for i:=1 to n do
begin write('Задайте ',i,'-й элемент массива: ');
read(a[i]);
if a[i]>max then max:=a[i];
end;
for i:=1 to n do
begin b[i]:=a[i]*max;
writeln(b[i]);
end;
END.
Объяснение:
a) Переводим целую часть 91(10) в 2-ую систему последовательным делением на 2:
91/2 = 45, остаток: 1
45/2 = 22, остаток: 1
22/2 = 11, остаток: 0
11/2 = 5, остаток: 1
5/2 = 2, остаток: 1
2/2 = 1, остаток: 0
1/2 = 0, остаток: 1
91(10) = 1011011(2)
б)Переводим целую часть 675(10) в 8-ую систему последовательным делением на 8:
675/8 = 84, остаток: 3
84/8 = 10, остаток: 4
10/8 = 1, остаток: 2
1/8 = 0, остаток: 1
675(10) = 1243(8)
в)Переводим целую часть 270(10) в 16-ую систему последовательным делением на 16:
270/16 = 16, остаток: 14, 14 = E
16/16 = 1, остаток: 0
1/16 = 0, остаток: 1
270(10) = 10E(16)
Объяснение:
Зависит от языка программирования, но вообще все кроме 0 или пустой строки это true, соответственно 0 или '' аналог false.