Question

(DELPHI 7) Вывести на экран 1 или 0 в зависимости от того есть ли среди первых трёх цифр дробной части заданного положительного вещественного числа цифра ноль (DELPHI 7)

Answer 1

var
    r: real;
    i: integer;

begin
    Readln(r);
    i := Trunc(r * 1000);
    if (i mod 10 = 0) or (i div 10 mod 10 = 0) or (i div 100 mod 10 = 0) then
        writeln(1)
    else writeln(0);
end.