Вычислить 125₈+101₂×2A₁₆-141₈
Поскольку результат нужен в десятичной системе, проще всего перевести все числа в эту систему и провести вычисления в ней.
125₈ = 5×8⁰+2×8¹+1×8² = 5+16+64 = 85₁₀
101₂ = 5₁₀ (можно и вычислить, но таблицу от 0 до 15 надо знать и так)
2А₁₆ = 10×16⁰+2×16¹ = 10+32 = 42₁₀
141₈ = 1×8⁰+4×8¹+1×8² = 1+32+64 = 97₁₀
Собственно вычисление:
85+5×42-97 = 198
Редактор какой нибудь газеты, бухгалтер, модератор, диспетчеры.
Program Otric;
var
mas: array [1..3] of integer;
i, k: integer;
begin
k := 0;
write('Введите числа: ');
for i := 1 to 3 do
begin
readln(mas[i]);
if (mas[i] < 0) and (mas[i] mod 2 <> 0)
then k := k + mas[i];
end;
writeln('Сумма нечетных отрицательных чисел = ', k);
end.
Минимально и нужно , интересно где еще такое задают
Var
max,min,i:integer;
b:real;
a:array[1..9]of integer;
begin
for i:=1 to 9 do
begin
while (a[i]<1) or (a[i]>6) do
begin
write(i,' оценка: ');
readln(a[i]);
end;
if i=1 then
begin
max:=a[1];
min:=a[1];
end;
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
b:=b+a[i];
end;
b:=(b-min-max)/7;
writeln('Зачетная оценка: ',b);
<span>end. </span>