вариант 1 (ответ просто true/false):
var
n: integer;
begin
writeln('проверка, является ли натуральное число n точным квадратом');
write('введите натуральное число n: ');
read(n);
writeln('результат: ', (sqr(int(sqrt( = n) and (n > 0));
end.
вариант 2:
var
n: integer;
begin
writeln('проверка, является ли натуральное число n точным квадратом');
write('введите натуральное число n: ');
read(n);
writeln('результат: ', n > 0 ? sqr(int(sqrt( = n ? 'является' : 'не является' : 'введено число, не являющееся натуральным');
end.
Поделитесь своими знаниями, ответьте на вопрос:
На какую тему можно сделать на какую тему можно сделать презентацую