Var a:integer;
begin
read(a);
write((a mod 10)*100+(a div 10 mod 10)*10+a div 100)
<span>end.</span>
Если честно, то не понятно в чем суть вопроса...И тут легко ошибиться, но ответ 1.9875
1/2=0.5
1/4=0.25
1/6=0.1666...~0.7
1/8=0.125
1/10=0.1
1/12=0.08333~ 0.08
1/14=0.07142...~0.07
1/16=0.0625
1/18=0.05
1/20=0.05
//PascalABC.NET v3.3 1633
var arr: array [1..9] of byte;
begin
for var i:=1 to 9 do
arr[i]:=random(50,60);
for var i:=1 to 9 do
writeln(arr[i]);
var sum:=0;
for var i:=1 to 9 do
sum += arr[i];
writeln('Сумма эл. массива: '+sum);
end.
1024000 а кбит будет 1024
600000/1024=585,94
ответ:585,9 секунд