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

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 14. Целая и дробная части заданного вещественного числа одинаковы. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-2/14 98

Подробный ответ

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

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

Если значения равны, программа выведет 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.