Решение на<em> Pascal</em>:
var
a: integer;
begin
writeln('Введите число:');
readln(a);
if (a mod 5 = 0) then writeln('Число является кратным 5.') else writeln('Число не является кратным 5.')
<span>end.</span>
Будет 409600......... .......кбайт
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
ReadlnString('Вводите:').ToReals.OrderBy(x->x).Println
end.
<u><em>Тестовое решение:</em></u>
Вводите: 35.53 -34.14 -18 0 6e-1 3.14 23.2 -2.34e-3
-34.14 -18 -0.00234 0 0.6 3.14 23.2 35.53
Ответ:
Длина между пунктами А и F 9.