Delphi

[svoi92]

1_Вывести на экран 1 или 0 в зависимости от того, есть ли среди первых трех цифр дробной части заданного положительного вещественного числа цифра ноль.

2_Значения переменных a, b и с поменять местами так, чтобы оказалось a<=b<=c.

3_Type нота=(до,ре,ми,фа,соль,ля,си);
интервал=(секунда,терция,кварта,кви нта,секста,септима);
var n1,n2:нота;
i:интервал;
Определить i-й интервал, образованный нотами n1 и n2(n1*n2): секунда - это интервал из двух соседних (по кругу) нот (например, ре и ми, си и до), терция -интервал через ноту (например, фа и ля, си и ре) и т.д.

[Serge_Bliznykov]

задача 1.
переводите вещественное число в строку (через STR(X:12:3,s)
потом берете три символа справа через COPY(s, Length(s)-3,3)
и через POS проверяете наличие там ноля
if Pos('0', sPodstr) then Result := 1 else Result := 0;

Задача 2.
готовое решение -
http://www.programmersforum.ru/showp...68&postcount=2