20 б за ответ + 10 б за лучший. налетаем! : ) простенькое, обычная работа с excel. , приложите файл excel. старинные меры длины - версты, сажени, аршины. 1 верста = 500 саженей, 1 сажень = 3 аршина, 1 аршин = 71,12 см. с электронной таблицы переведите в метры: 1) 4 версты 52 сажени 2 аршина; 2) 10 верст 435 саженей 1 аршин; 3) 1 версту 15 саженей.

Роботтар адамдарды күнделікті жұмыстан босатады", - дейді ғалымдар. "Қашан?"- деп сұрайды қызықты мектеп оқушылары, студенттер және тұтастай алғанда, бірнеше ондаған жылдан кейін жұмыссыз қалудан қорқатын адамдар. Қандай мамандар және жасанды интеллект қаншалықты тез ауыстырылады? Мамандардың болжамына сәйкес, 2024 жылға қарай жасанды интеллект мәтіндерді жақсы аударуды үйренеді, ал 2026 жылға қарай ол мектеп оқушыларына эссе жаза алады. Машинаның қаламынан бестселлерлер 2049 жылға қарай шыға бастайды. Роботтар адамды басқа салаларда да қысады: 10 жылдан кейін компьютерлер жүк машиналарын жүргізе бастайды, 2031 жылға қарай олар сатушыларды алмастырады. 2053 жылға қарай темір хирургтардың жұмысын бастайды.

Объяснение:

Много лишнего(наверно), только с олимпиады!Как есть.
uses crt;
var b,n,i,k,c,o,x1:integer;
    f,s,ch:string;
    r,g: text;
    A:array [0..9] of integer;
begin
assign (r,'C:\Bin.txt');
reset (r);
readln (r,f);
close (r);
for i:=1 to length(f) do
begin
s:=copy(f,1,1);
if (s<>'0') or (s<>'1') or (s<>'2') or (s<>'3') or (s<>'4') or (s<>'5') or (s<>'6') or (s<>'7') or (s<>'8') or (s<>'9')then
delete(f,1,1);
if (s='0') or (s='1') or (s='2') or (s='3') or (s='4') or (s='5') or (s='6') or (s='7') or (s='8') or (s='9')then
begin
x1:=pos(s,ch);
if x1<>0 then
begin
delete(ch,x1,1);
ch:=ch+s;
end
else
ch:=ch+s;
end;
end;
val(ch,n,o);
  N := Abs(N);
  for i := 0 to 9 do
  A[ i ] := 0;
  while N > 0 do
  begin Inc(A[ N mod 10]);
  N := N div 10;
  end;
assign (g,'C:\Bout.txt');
rewrite (g);
  for i := 0 to 9 do
  while A[ i ] > 0 do
  begin Write(g,i);
  Dec(A[ i ]);
  end;
  close(g);
end.