Question

Проверить, что натуральное число N является точным квадратом.(Нужно решить через True,False,не используя конструкцию if-then)

Answer 1

Вариант 1 (ответ просто True/False):

var

 n: integer;

begin

 writeln('Проверка, является ли натуральное число N точным квадратом');

 write('Введите натуральное число N: ');

 Read(n);

 writeln('Результат: ', (Sqr(Int(Sqrt(n))) = n) and (n > 0));

end.

Вариант 2:

var

 n: integer;

begin

 writeln('Проверка, является ли натуральное число N точным квадратом');

 write('Введите натуральное число N: ');

 Read(n);

 writeln('Результат: ', n > 0 ? Sqr(Int(Sqrt(n))) = n ? 'является' : 'не является' : 'введено число, не являющееся натуральным');

end.