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

Question

Kulamath 10.23.18

Решено

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

14

ОТВЕТЫ

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

234

Отв. дан 2018-10-24 01:13:37 Sazan

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

Другие вопросы в разделе - Информатика