1.
А) A10=1997,25=1*10^3+9*10^2+9*10^1+7*10^0+2*10^-1+5*10^-2<span>
б) A16=918=9*16^2+1*16^1+8*16^0
в) A8=</span>145=1*8^2+4*8^1+5*8^0<span>
г) </span><span>101010=1*10^5+0*10^4+1*10^3+0*10^2+1*10^1+0*10^0
2.
</span>100001100 = 2^8 + 2^3 + 2^2 = 256 + 8 + 4 = 268
3.
a) 151 = 1∙8^2 + 5∙8^1 + 1∙8^0<span> = 105
</span>б) 2C = 2∙16^1 + C∙16^0<span> = 44</span>
<span>Const n=5;
Var B:array[1..n,1..n] of integer;
i,j:byte;
pr:real;
Begin
For i:=1 to n do
Begin
For j:=1 to n do
Begin
B[i,j]:=random(10);
write(B[i,j]:3);
End;
writeln;
End;
pr:=1;
For i:=1 to n do
For j:=1 to n do
if i<j then
pr:=pr*B[i,j]; writeln('Произведение элементов = ',pr);
readln;
End.</span>
Точная задача по Техническому Заданию:
var x,y:integer;
begin
writeln('введите два числа');
readln(x);
readln(y);
if (x<1000000001) and (y<1000000001) and (x>0) and (y>0)
then writeln('сумма чисел =',x+y)
else writeln('диапазон чисел неверный');
end.
Если вдруг вам поверит учитель, можете перевыполнить поставленную задачу:
var x,y:integer;
s:string;
begin
randomize;
writeln('взять ли числа случайными? Ответ да или нет');
readln(s);
if (s='да') or (s='Да') or (s='ДА') or (s='дА') then begin
x:=random(1000000000);
y:=random(1000000000);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end
else begin
writeln('введите два числа');
readln(x);
readln(y);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end;
end.