(DELPHI 7) Вывести на экран 1 или 0 в зависимости от того есть ли среди первых трёх цифр дробной части заданного положительного вещественного числа цифра ноль (DELPHI 7)
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Varr: real;
i: integer;
begin
Readln(r);
i := Trunc(r * 1000);
if (i mod 10 = 0) or (i div 10 mod 10 = 0) or (i div 100 mod 10 = 0) then
writeln(1)
else writeln(0);
end.