Хамелеон 1 - тело и голова зелёного цвета, лапы -жёлтого
хамелеон 3 - тело и голова красный, лапы -зелёный
хамелеон 5 - тело и голова жёлтый, лапы - синий
хамелеон 7 - тело и голова оранжевый, лапы - синий
Это значит 3 человека.Тоесть есть отец(он один папа)у него есть сын а у его сына есть ещё сын.Значит его дедушка.
Var a, b, c, r : integer;
begin
c:=0;
r:=9;
write('Введите число: ');
readln(a);
while a div 10 <> 0 do
begin
b:=a mod 10;
a:=a div 10;
if b>c then c:=b;
if b<r then r:=b;
end;
b:=a mod 10;
a:=a div 10;
if b>c then c:=b;
if b<r then r:=b;
writeln('Разность: ', c-r);
end.
ДА ХОТЬ ДЛЯ 10 ЗНАЧНОГО))))
Вот вставь проверь там напишет при каких значениях
var x, L, M,i,i1: integer;
begin
for i:=0 to 1000 do
begin
i1:=i;
L:=0;
M:=0;
while i1 > 0 do
begin
L:=L+1;
if M < i1 then
begin
M:= (i1 mod 10) * 2;
end;
i1:= i1 div 10;
end;
writeln(L);
write(M);
end;
readln;
end.<span>
</span>