Вывести на экран 1 или 0 в зависимости от того есть ли среди первых трёх цифр дробной части заданного положительного вещественного числа цифра ноль (delphi)
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.
{$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