Вывести на экран 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
{$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
Отв. дан
Sazan
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Karius
Напишите программу в С# Запрашивает с клавиатуры два целых ...
2018-10-23 01:49:00
Peribandis
Переведите двоичное число 1101001 в восьмеричную систему счисления ...
2018-10-23 01:45:13
Opirin
Компоненты ai вектора a... 26 задание, написать программу паскаль ...
2018-10-23 01:42:05
Adogamand
Составить программу в Pascal для вычисления функции : 1) ...
2018-10-23 01:41:14