Question

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

Answer 1

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.
  
число: 4785.201457
1