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

Предыдущий
вопрос Следующий
вопрос

Program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils, Math;

var a: real;

n: integer;

begin

write('число: '); readln(a);

n:=Floor(a*1000);

if (n mod 10 = 0) or ((n div 10) mod 10 = 0) or

((n div 100) mod 10 = 0) then writeln(1)

else writeln(0);

end.