1. Умножаем скорость на 5, делим на 8 и на 1024. Ответ: 625
//Вроде бы знакомый аватар...
//Соглашусь с предыдущим оратором, решается в 3 строки без циклов
//Pascal ABC.NET v3.0 сборка 1111
Const
n=10;
var
ar:array[1..n] of integer;
sum,i:integer;
begin
randomize;
for i:=1 to 10 do
begin;
ar[i]:=random(50,100);
sum+=ar[i];
write(ar[i]:4);
end;
writeln;
write('Sum=',sum);
end.
5BC₁₆=5*16²+B*16¹+C*16⁰=1280+176+12=1468₁₀
<span>Frac (15.6) = 0.6 - функция выделяет дробную часть
Trunc(24.9)
= 24 - функция выделяет целую часть
В результате получим 24.6
</span>
Современный Паскаль все сделает сам...
<em>// PascalABC.NET 3.2, сборка 1387 от 17.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x='); Writeln('F=',1/(x-1))
end.
<u>Примеры</u>
x= -3.5
F=-0.222222222222222
x= 1.000001
F=1000000.00008227
x= 1
F=бесконечность