Люди,помогите написать программку в Паскале. Необходимо,чтобы сравнивалась дробная и целая часть
Люди,помогите написать программу в Паскале. Нужно,чтоб сравнивалась дробная и целая часть вещественного числа,если она одна и та же,то тру,если нет,то false. Допустим 12.12 будет тру,а если нет,то фолс. Неувязка в том,что через fruc и int сравнивается 12 и 0.12. Домножать на 100 нельзя,тк это универсальная программка,может быть и число 123.123
Задать свой вопрос2 ответа
Олег Чипрягов
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ReadReal('Введите число:').ToString.ToWords('.');
if a.Length=2 then Writeln(a[0]=a[1])
else Writeln(False);
end.
Примеры
Введите число: 121.121
True
Введите число: 12.11999
False
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ReadReal('Введите число:').ToString.ToWords('.');
if a.Length=2 then Writeln(a[0]=a[1])
else Writeln(False);
end.
Примеры
Введите число: 121.121
True
Введите число: 12.11999
False
Гена
Var
V: real;
c,b: integer;
begin
writeln('Введите число');
readln(V);
c:=round(V);
V:=V-c;
b:=c;
while cgt;0 do begin
c:=c div 10;
V:=V*10;
end;
c:=round(V);
V:=V-c;
if round(V*10000)lt;gt;0 then
writeln('доли не одинаковы')
else begin
if b=c then
writeln('доли равны')
else
writeln('части не равны');
end;
end.
V: real;
c,b: integer;
begin
writeln('Введите число');
readln(V);
c:=round(V);
V:=V-c;
b:=c;
while cgt;0 do begin
c:=c div 10;
V:=V*10;
end;
c:=round(V);
V:=V-c;
if round(V*10000)lt;gt;0 then
writeln('доли не одинаковы')
else begin
if b=c then
writeln('доли равны')
else
writeln('части не равны');
end;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов