Работа 3.2 Упр.18 ГДЗ Семакин 10 класс (Информатика)

Среди первых трех цифр из дробной части положительного вещественного числа есть нуль.

Нужно проверить, есть ли нуль среди первых трёх цифр дробной части положительного вещественного числа. Для этого выделим дробную часть числа, умножим её на $$1000$$ и переведём в целое число. Тогда первые три цифры дробной части окажутся в целой части полученного числа.

Далее проверим каждую из трёх цифр на равенство нулю и запишем результат в логическую переменную.

var x: real;
y, z, k: integer;
t: boolean;
begin
  write(‘Введите вещественное число с дробной частью x=’);
  readln(x);
  y := trunc(frac(x) * 1000);
  k := ord(y mod 10 = 0) + ord(y div 10 mod 10 = 0) + ord(y div 100 = 0);
  t := k > 0;
  write(t);
  readln;
end.

Здесь $$frac(x)$$ — дробная часть числа, $$trunc$$ отбрасывает дробную часть, а выражение $$ord(\text{условие})$$ даёт $$1$$, если условие истинно, и $$0$$, если ложно.

Ответ: программа проверяет, есть ли нуль среди первых трёх цифр дробной части положительного вещественного числа, и выводит $$true$$ или $$false$$.