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

Можно умножить дробную часть числа на \(1000\), получить первые три цифры и проверить, есть ли среди них ноль.

Программа:
var
  x: Real;
  n: Integer;
begin
  ReadLn(x);
  n := Trunc(Frac(x) * 1000);
  if (n mod 10 = 0) or ((n div 10) mod 10 = 0) or (n div 100 = 0) then
    WriteLn(1)
  else
    WriteLn(0);
end.

Программа выводит \(1\), если среди первых трёх цифр после запятой есть ноль, и \(0\), если нуля нет.

0 0 Пожаловаться