вывести на экран 1 или 0 в зависимости от того есть ли среди первых трёх цифр дробной части заданного положительного вещественного числа цифра ноль (Delphi)
Ответы
Ответ дал:
0
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
Ответ дал:
0
который можно будет вписать
Ответ дал:
0
Этот "маразм" на сайте появился дня 4 - 5 назад, до этого проблем с копированием текста не было.
Ответ дал:
0
Я просто не понимаю куда его вводить
Ответ дал:
0
мне надо ввести этот код в кнопку и при нажатии на неё выводился 0 или 1
Ответ дал:
0
Заводите на форме два поля Edit1 и Edit2, Edit2 - для ввода числа, Edit1 - для результата, тогда программа обработки нажатия кнопки Button1 будет следующая: procedure TForm1.Button1Click(Sender: TObject);
var a: real;
n: integer;
begin
a:=StrToFloat(Edit2.Text);
n:=Floor(a*1000);
if (n mod 10 = 0) or ((n div 10) mod 10 = 0) or
((n div 100) mod 10 = 0) then Edit1.Text:='1'
else Edit1.Text:='0';
end;
var a: real;
n: integer;
begin
a:=StrToFloat(Edit2.Text);
n:=Floor(a*1000);
if (n mod 10 = 0) or ((n div 10) mod 10 = 0) or
((n div 100) mod 10 = 0) then Edit1.Text:='1'
else Edit1.Text:='0';
end;
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад