Practic1.pas(53) : Нельзя преобразовать тип real к integer - Turbo Pascal
Формулировка задачи:
Подскажите пожалуйста как проверить число типа real на кратность?
Practic1.pas(53) : Нельзя преобразовать тип real к integer
Условие задачи:
Дан одномерный массив целых чисел. Написать процедуру, которая записывает в файл те пары последовательно взятых элементов массива, корень суммы которых кратен 3.
Во всём разобрался, только вот с условием на кратность не могу.
Решение задачи: «Practic1.pas(53) : Нельзя преобразовать тип real к integer»
textual
Листинг программы
uses crt; var n: real; begin n:=25; if (frac(sqrt(n))=0) and (round(sqrt(n)) mod 5=0) then write('1'); end.
Объяснение кода листинга программы
Код написан на языке Turbo Pascal и выполняет следующие действия:
- Используется подпрограмма frac, которая возвращает дробную часть числа.
- Используется подпрограмма sqrt, которая возвращает квадратный корень числа.
- Выполняется проверка условия (frac(sqrt(n))=0) и (round(sqrt(n)) mod 5=0).
- Если оба условия выполняются, то выводится значение 1. Переменная n имеет тип real и равна 25.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д