Всем доброго времени суток, хотелось бы получить ответ на этот вопрос ---
Среда программирования "Кумир" Необходимо закрасить произвольное пятно , причем робот должен находиться в центре пятна
*Программа должна быть универсальной

1. Как я понял, нужно перевести 297(10) в ...(2),...(8) и ...(16).
Тогда:
- 10-ная : 297;
- 2-ная : 100101001;
- 8-ная : 451;
- 16-ная : 129.

2.Как я понял нужно показать как перевести 100101001(2-ная) в 8-ная через триады.
Тогда :
100 101 001
1) 100 = 2^2 = 4;
2) 101 = 2^2 + 2^0 = 4 + 1 = 5;
3) 001 = 2^0 = 1;
Тогда 100101001 (2-ная) = 451(8-ная).

3. 16 = 2^4 = 10000(2-ная);
32 = 2^5 = 100000(2-ная);
64 = 2^6 = 1000000(2-ная);
128 = 2^7 = 10000000(2-ная).
Выведем правило : Если мы переводим в двоичную СС числа, являющиеся степенями двойки, то мы ставим везде ноли, но единицу ставим в том разряде двоичного числа, в который мы возвели двойку, чтобы получить 8;16 и т.п(32 - это 5-ая степень двойки, следовательно мы ставим единицу на 5-ый разряд, а в другие разряды ставим нули : 100000(1 на 5 разряде).

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.