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

Целая и дробная части заданного вещественного числа одинаковы.

Нужно проверить, равны ли целая и дробная части введённого вещественного числа. Для этого число вводится как строка, затем:

• находится позиция десятичной точки;
• выделяется часть строки до точки — это целая часть;
• выделяется часть строки после точки — это дробная часть;
• обе части преобразуются в целые числа и сравниваются.

Если значения равны, программа выведет True, иначе — False.

var p1, p2, err: integer;
s: string;
begin
  writeln(‘Введите число’);
  readln(s);
  val(copy(s, 1, pos(‘.’, s) — 1), p1, err);
  val(copy(s, pos(‘.’, s) + 1, length(s)), p2, err);
  writeln(p1 = p2);
end.

Ответ

Программа сравнивает целую и дробную части числа и выводит True, если они одинаковы, и False в противном случае.