А) Чтобы перевести из 2-ой в 8-ую , нужно отделить от числа три цифры(так как в 8-ой системе двоичный триад (группа по 3 цифры) и под отдельности считаешь, а потом соединяешь получившееся числа! Вот пример: 101001, разбиваем по 3 цифры и считаем 101=>1*2^2+0*2^1+1*2^0=5 001=>0*2^2+0*2^1+1*2^1=1 В ответе получается число 51 в 8-ой системе! Чтобы в 16 систему перевести отделять по 4 цифры! Пример с тем же числом: 101001, нам не хватает 2-е цифры, значит добавляем 00, перед этим числом 00101001 и считаем 0010=>0*2^3+0*2^2+1*2^1+0*2^0=2 1001=>1*2^3+0*2^2+0*2^1+1*2^0=9 В ответе 29! А в 10-ую переводи просто, не отделяя цифр и все! Б)A=10 F=15 , вот и переводи 1015 в 2-ую систему , методом деления на 2!
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var b: array of real; i, n,pn: integer; ps,op,min:real; begin write('Количество элементов массива :');readln(n); SetLength(b, n); // задаем длину массива min:=MaxReal; op:=1; writeln('Исходный массив:'); for i:=0 to n-1 do begin repeat write('Введите ',i+1,' число из ',n,' : ');readln(b[i]); until (b[i]<=5) and (b[i]>=-20); if (b[i]>0) and (round(b[i]/2)*2=b[i]) then begin ps +=b[i];pn+=1; end else if b[i]<0 then op *=b[i]; if b[i]<min then min:=b[i]; end; writeln; writeln('сумма положительных и четных элементов массива :',ps:0:3); writeln('Среднее положительных и четных элементов массива :',ps/pn:0:3); writeln('Произведение отрицательных элементов массива :',op:0:3); writeln('Минимальный элемент массива :',min); writeln('Отсортированный массив по убыванию :'); b.sorteddescending.println; end.
Тестовое решение: Количество элементов массива :8 Исходный массив: Введите 1 число из 8 : -18.5 Введите 2 число из 8 : 3.4 Введите 3 число из 8 : 4 Введите 4 число из 8 : -12 Введите 5 число из 8 : 2.2 Введите 6 число из 8 : -6.3 Введите 7 число из 8 : 2 Введите 8 число из 8 : 5
сумма положительных и четных элементов массива :6.000 Среднее положительных и четных элементов массива :3.000 Произведение отрицательных элементов массива :-1398.600 Минимальный элемент массива :-18.5 Отсортированный массив по убыванию : 5 4 3.4 2.2 2 -6.3 -12 -18.5
Задание №2 //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a: array of integer; i,n ,max,h,k: integer; begin write('Количество элементов массива :');readln(n); write('Число H :');readln(h); write('Число K :');readln(k); SetLength(a, n); // задаем длину массива max:=-MaxInt; writeln('Исходный массив:'); for i:=0 to n-1 do repeat write('Введите ',i+1,' число из ',n,' : ');readln(a[i]); if a[i]>max then max:=a[i]; until (a[i]<=7) and (a[i]>=-12); for i:=0 to n-1 do begin if (a[i]>h) and (a[i]mod k=0) then writeln('Число ', a[i],' больше ',h,' и кратно ',k); end; writeln('Максимальный элемент массива :',max); writeln('Отсортированный массив по возрастанию :'); a.sorted.println; end.
Тестовое решение: Количество элементов массива :8 Число H :-8 Число K :2 Исходный массив: Введите 1 число из 8 : -10 Введите 2 число из 8 : 6 Введите 3 число из 8 : -4 Введите 4 число из 8 : 3 Введите 5 число из 8 : 1 Введите 6 число из 8 : -1 Введите 7 число из 8 : -12 Введите 8 число из 8 : 4 Число 6 больше -8 и кратно 2 Число -4 больше -8 и кратно 2 Число 4 больше -8 и кратно 2 Максимальный элемент массива :6 Отсортированный массив по возрастанию : -12 -10 -4 -1 1 3 4 6
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
