Я вижу 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-ричная ситстема счисления.
В 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-ричная ситстема счисления.
1)program primer1;
var х,у,z:integer;
{ описание переменных }
begin { начало программы }
х := 3; { установка значения х }
у := 5; { установка значения у }
z := х + у; { вычисление суммы }
write(z); {вывод результата вычисления на экран }
end. { конец программы }
2) program vetvlenija;
uses crt;
var A:real;
begin
clrscr;
write ('Введите число A: ');
readln (A);
if A>=0 then
writeln ('Вы ввели положительное число');
readln
end.
3) program cikle;
var
i, n: integer;
begin
write ('Количество знаков: ');
readln (n);
for i := 1 to n do
write ('(*) ');
readln
end.
Объяснение:
1) линейный, без ничего
2) ветвление - if then
3) цикл - for