Мышь, тачпад и трекбол выполняют функцию комп.мыши, получается, что лишнее - клавиатура
Var x,y,k,err:integer;s:string;d,e:real;
begin
err:=0;
read (x,y);
d:=max (x+y,y-x) + 3;
e:=min (sqr(x)+sqr(y),sqr(y)+x*y) - 4;
str (e,s);
k:=length(s);
val (s,e,err);
if (d<e) then
begin
d:=d+(e div (10*(k-1)));
end else
begin
d:=power (d,1/(e div (10*(k-2))));
end;
writeln (d);
end.
наименование-это по другому название
Совокупность правил одобреная администратором.
обновление.
Var
cnt, i,tmp, n, ans:longint;
begin
Writeln('Введите n -> ');
Readln(n);
for i:= 1 to n do
begin
tmp:= i;
cnt:= 0;
while tmp > 0 do
begin
inc(cnt);
tmp := tmp div 10;
end;
ans:= ans + cnt;
end;
Writeln(ans);
end.