Var a, b, c, d, a1, b1, c1, d1:real;
begin
a1:=0; b1:=0; c1:=0; d1:=0;
read (a, b, c, d);
if (a<0) or (b<0) or (c<0) or (d<0) then
begin
if (a<0) then a1:=a;
if (b<0) then b1:=b;
if (c<0) then c1:=c;
if (d<0) then d1:=d;
writeln ('Сумма отрицательных = ', a1+b1+c1+d1);
a1:=1; b1:=1; c1:=1; d1:=1;
if (a<0) then a1:=a;
if (b<0) then b1:=b;
if (c<0) then c1:=c;
if (d<0) then d1:=d;
writeln ('Произведение отрицательных = ', a1*b1*c1*d1);
end
else writeln ('Все числа больше либо равны 0');
end.
Объяснение:
пользователей, получивших
Алгоритм перевода чисел из восьмеричной в десятичную систему счисления аналогичен уже рассматривавшемуся нами в разделе Перевод чисел из двоичной системы в десятичную. Различие состоит лишь в том, что для восьмеричной системы счисления основанием является число 8, а правило перевода в данном случае может быть сформулировано в следующем виде:
Для перевода восьмеричного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания восьмеричной системы счисления на соответствующие цифры в разрядах восьмеричного числа.
Например, требуется перевести восьмеричное число 2357 в десятичное. В этом числе 4 цифры и 4 разряда ( разряды считаются, начиная с нулевого, которому соответствует младший бит). В соответствии с уже известным нам правилом представим его в виде суммы степеней с основанием 8:
23578 = (2·83)+(3·82)+(5·81)+(7·80) = 2·512 + 3·64 + 5·8 + 7·1 = 126310
douwdek0 и 7 других пользователей посчитали ответ полезным!
2
1,8
(5 оценок)
Войди чтобы добавить комментарий
Остались вопросы?
НАЙДИ НУЖНЫЙ
ЗАДАЙ ВОПРОС
Премиум-доступ со Знаниями Плюс
Начни учиться еще быстрее с неограниченным доступом к ответам от экспертов
ПОДПИШИСЬ
Новые вопросы в Информатика
1.переведите число 247 из восьмеричной в десятичную систему счисления 2)Переведите число 1АЕ из шестнадцатеричной в десятичную. 3) среди чисел 538^8, …
В чем сходство и различие между компонентами выбора в среде Lazarus и операторами выбора в Паскале?
Pythoneые возможности для обучения без
if (условие) then (операция) else (операция);
Объяснение:
Если паскаль, то это.