Алгоритм:
1 цифра числа + 2 цифра числа - 1.
Вход / Выход
91 / 9
80 / 7
73 / 9
20 / 1
Var a,b,c:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
if (a=b)and(b=c)
then writeln(3)
else if (a=b)or(a=c)or(b=c) then writeln(2)
else writeln(0);
end.
Пример:
a, b, c:
1 2 1
2
var f,g:string;
i:integer;
begin
readln(f);
for i:=1 to length(f)-1 do if (f[i+1]='а') then g:=g+f[i];
writeln(g);
g:='';
for i:=2 to length(f) do if (f[i-1]='а') then g:=g+f[i];
writeln(g);
end.
Не легкая задача но решить можно попробуте посщитать на калькуляторе удачи!!!!!!