Program SumAndMul;
Uses Crt;
var a:array[1..10] of real;
i:integer;
sum,mul:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write('Введите -', i,' число:' );
readln(a[i]);
end;
sum:=0;mul:=1;
for i:=1 to 10 do
begin
if (a[i]>0) then sum:=sum+a[i];
if (a[i]<0 ) then mul:=mul*a[i];
end;
writeln('Сумма положительных элементов: ',sum);
writeln('Произведение отрицательных элементов: ',mul);
readkey;
end.
1.726 это восьмиричная система счисления так как в восьмеричную систему счисления входят 8 цифры 0,1,2,3,4,5,6,7 а также число 726 может быть шестнадцати ричной системе счисления так как в шестнадцати ричной системе счислени тоже есть цифры 7,6 и 2 но число 726 не может быть в двоичной системе счисления потому что в двоичной системе счисления есть только цифры 0 и 1в двоичной системе счисления нету цифр 7 и 6 поэтому 726 не двоичная система счисления.
2.из цифр 0,1,2,3,4 состоит из 5 цифр значит это пятиричная система счисления
3.121 наименьшее основание это 3 т.к троичная система счисления состоит из цифр 0,1,2. вообще основание числа 121 может быть и 8 потому что и в восьмиричной системе счисления тоже есть цифры 1 и 2 но так как нам сказали НАИМЕНЬШЕЕ то это 3.
10 наименьшее основание это 2 так как двоичная система счисления состоит из двух цифр 0 и 1
1111 наименьшее основание это 2
12 наименьшее основание это 3 т.к в троичная система счисления состоит из 3 цифр 0,1,2.
4.106 не может встретиться в шестиричной системе счисления так как в шестиричной системе счисления есть цифры от нуля до 5 всего шесть цифр.В шестиричную систему счисления не входит цифры 6,7,8 и т.д
562 тоже не может встретиться в шестиричной системе счисления так как есть цифра 6 а цифра 6 не входит в шестиричной системе счисления
5.1)я не умею переводить из пятиричной в десятичную простии
2) на первой фотке.
чтобы перевести из двоичной системы счисления в десятичную сначала нужно:
записать число и пронумеровать их справа на лево начиная с нуля как я это сделала на второй фотке
затем каждую цифру умножаем на два(так как наше число в двоичной системе счисления) в степени который написано над цифрой.Например над цифрой 1 я написала число 4 это значит что мы 1 умножаем на 2 в 4 степени.Потом над второй однеркой у нас цифра 3 значит 1 умножаем на 2 в третьей степени
ВАЖНО
Нули не считаем!
Любое число в нулевой степени равно 1
var norma, vsego: real;
den: integer;
begin
norma:=10;
vsego:=10;
den:=2;
while den<8 do begin
norma:=1.1*norma;
vsego:=vsego+norma;
den:=den+1
end;
writeln('Общий пробег=',vsego)
end.