Вопрос по информатике:
(DELPHI 7) Вывести на экран 1 или 0 в зависимости от того есть ли среди первых трёх цифр дробной части заданного положительного вещественного числа цифра ноль (DELPHI 7)
Пожаловаться
- 03.07.2018 13:25
- Информатика
- remove_red_eye 3570
- thumb_up 26
Ответы и объяснения 1
Var
r: 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.
r: 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.
Пожаловаться
- 04.07.2018 06:14
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы