Представьте число 6710 в беззнаковом 8-разрядном формате.
2.Найдите десятичные эквиваленты чисел по их прямым кодам, записанным в 8-разрядном формате со знаком:
а) 01000100;
б) 01110101.
3.Какие из чисел 3348, 11010102, 23110 можно сохранить в 8-разрядном формате?
4.Запишите следующие числа в естественной форме:
а) 0,045456·104;
б) 0,461·10-3;
в) 10,246700Е+5;
г) 7274,120Е-3
5.Запишите следующие числа в экспоненциальной форме с нормализованной мантиссой — правильной дробью, имеющей после запятой цифру, отличную от нуля:
а) 2579,3410;
б) 25793410;
в) 0,00010110.
6.Запишите в развернутой форме числа:
а) 143,6710;
б) 143678;
в) 1436716;
г) 14367,678;
7.Вычислите десятичные эквиваленты следующих чисел:
а) 1378;
б) 2ЕВ16;
в) 1110102;
г) 111,12;
д) 3236.
8.Найдите основание х системы счисления, если:
а) 27х=1910;
б) 2008х=6210.
С решением
1)
var x: integer;
begin
x:=5; // Поменяйте значение на нужное
writeln ('Квадрат числа ', x, ' = ',sqr(x));
end.
2)
var a,b: integer;
begin
a:=3; // Поменяйте значение на нужное
b:=a*2;
writeln ('Сумма A и B = ', a+b);
end.
2 вариант решения, все значения вводятся с клавиатуры:
1)
var x: integer;
begin
write ('Введите число Х: '); read(x);
writeln ('Квадрат числа ', x, ' = ',sqr(x));
end.
2)
var a,b: integer;
begin
write ('Введите число А: '); read (a);
b:=a*2;
writeln ('Сумма A и B = ', a+b);
end.
const n=5;
var a:array[1..n,1..n] of integer;
i,j,k,max,stroka:integer;
begin
writeln('Исходная матрица:');
for i:=1 to n do
for j:=1 to n do begin
a[i,j]:=random(20)-10;
write(a[i,j],' ');
if j=n then writeln;
end;
stroka:=1;
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do begin
if max<a[i,j] then begin
max:=a[i,j];
stroka:=i;
end;
end;
k:=n;
for i:=stroka to n-1 do
for j:=1 to n do
a[i,j]:=a[i+1,j];
k:=k-1;
writeln('Без удаленной строки:');
for i:=1 to k do
for j:=1 to n do begin
write(a[i,j],' ');
if j=n then writeln;
end;
end.