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

ivbobkova1 ivbobkova1    3   21.09.2019 15:40    4

Ответы
polinapolina1341 polinapolina1341  04.08.2020 13:23
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика