Если я всё верно понял то программа должна сложить цифры числа и поделить их на количество этих цифр например число 12345 должно будет обработаться так 1+2+3+4+5=15 15/5=3, программа на скрине, я её сделал не только для этого примера, туда можно ввести любое число и программа сработает верно, программу не комментировал надеюсь всё и так понятно
Троичная - 0,1,2,10,11,12,20,21,22,100,101,102,110,111,112
Пятеричная - 0,1,2,3,4,10,11,12,13,14,20,21,22,23,24
Шестнадцатеричная - 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E
Ответ:
===== PascalABC.NET =====
var
a,b : integer;
begin
writeln('введите a,b');
readln(a,b);
if a>b then a:=a-b
else b:=b-a;
writeln('Максимальное = ',max(a,b));
end.
Объяснение:
var x,y:real;
begin
readln(x,y);
writeln((x*x+y*y<=1)or(x*x+y*y>=2*2)and(x*x+y*y<=3*3));
end.
Пример:
0.5 0.5
True