<span>Если оценивать цветок с точки зрения биолога, то для него важны такие свойства объекта, как строение корневой системы и стебля, форма и расположение листьев, строение соцветия, способ опыления, среда обитания. Изучив эти параметры, биолог отнесет цветок к определенному виду. Информационную модель он может представить в виде схемы, описания, рисунка.</span>
Код программы
var
a: integer;
function c(a: integer): integer;
var
b: integer;
begin
b := 30;
a := -a - 3 * b;
if a < b then
c := b + 45
else
c := b - 50;
end;
begin
for a := 1000 downto -1000 do
if c(a) = -20 then begin
writeln('a=', a, ' c(a)=', c(a));
break;
end;
end.
Вывод
a=-120 c(a)=-20
Аналитическое решение.
Видно что <span>c:=b - 50 = 30 - 50 = -20 при a>=b
</span><span>-a-3*b>=b</span>
<span>-a-3*30>=30
</span>-a-90>=30
<span>-a>=120
a<=-120</span>
//PascalABC.NET 3.2 сборка 1318
Var
SeNotExist:set of char=['0','1','2','3','4','5','6','7','8','9'];
ArrNotExist:array of char;
count,i:integer;
Num:string;
begin
readln(Num);
for i:=1 to length(Num) do
SeNotExist-=[Num[i]];
foreach var x in SeNotExist do
begin
inc(count);
setlength(ArrNotExist,count);
ArrNotExist[count-1]:=x;
end;
sort(ArrNotExist);
writeln(count);
ArrNotExist.Print(' ');
end.
Пример ввода:
81233214554
Пример вывода:
4
0 6 7 9
Ответ венкл Потом ещё поросуждаю