Написати програму на delphi 7
перевірте чи є задане число n квадратом цілого числа.
у вхідному файлі input.txt записано єдине ціле число n ([tex]-10^{9} \leq n\leq 10^{9}[/
якщо дане число є квадратом цілого числа, то у вихідний файл output.txt виведіть корінь квадратний цього числа, у протилежному випадку виведіть найближче число, що є квадратом числа
наприклад:
якщо input.txt 4 то output.txt 2
якщо input.txt -4 то output.txt 0
якщо input.txt 23 то output.txt 25

bagira2912    2   07.01.2020 16:05    0