var
a:array [1..12] of integer;
i:integer;
begin
randomize;
for i:=1 to 12 do a[i]:=random(11)-5;
for i:=1 to 12 do writeln(a[i]);
readln;
end.
Var a,b:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a>b) then begin
b:=(a+b)/2;
a:=3*(a*b);
end
else
begin
a:=(a+b)/2;
b:=3*(a*b);
end;
writeln('a=',a, ' b=', b);
readln;
<span>end.</span>
154: 2 вариант ответа
И где 153 задание?
var
a, b, p, i:integer;
Begin
p:= 0;
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
if (a < 0) and (b < 0) then
for i:=1 to Abs(b) do
p:= p + Abs(a)
else if ((a < 0) and (b >= 0)) or ((a >= 0) and (b < 0)) then begin
for i:=1 to Abs(b) do
p:= p + Abs(a);
p:= p * -1;
end
else
for i:=1 to b do
p:= p + a;
writeln('Произведение: ', p);
END.
Я вижу 16-ричную систему. Но тогда в подсчетах ошибка.
В 16 системе А -10, В - 11 С - 12, D - 13, Е - 14 F - 15
D5 = 5*16^0 + D*16^1 = 5+13*16 = 213(в десятичной)
1A = 1*16^1 + A*16^0 = 16+10 = 26 (в десятичной)
BA = B*16^1 + A* 16^0 = 11*16+10 = 186
Если отнять эти числа в 10-й системе, то выходит 213 - 26 - 187.
Поэтому в задаче или у тебя в записи ошибка. Разность в 16-й системе, т.е количество сказаок равна не ВА, а ВВ, тогда все получится.
В*16^0+B*16^1 = 11 = 16*11 = 187
И тогда ответ - 16-ричная ситстема счисления.