Вывести True, если натуральное число N является точным квадратом, иначе вывести False

@Василий Федотов · Регистрация: 15.01.2016

Author24 — интернет-сервис помощи студентам

Составить программу, печатающую значение true, если высказывание
вашего варианта является истинным, и false — в противном случае. Данные
для формирования условия должны вводиться с клавиатуры. При
необходимости, выполнить проверку введенных данных.

Натуральное число N является точным квадратом.

@Puporev · 15.01.2016, 22:59

Pascal

var n:integer;
    f:boolean;
begin
write('n=');
readln(n);
f:=sqr(sqrt(n))=n;
write(f);
end.

@Fikafusik · 17.01.2016, 11:10

Puporev, да? А попробуйте n = 11, 14, 17, 21, 22, 27, 30, 33, 34, 35, 39, 41, 42, 44, 46, 47, 53, ну и т. д...

Добавлено через 7 минут
Василий Федотов,

Pascal

Function IsSqr(n: Int64) := Sqr(Round(Sqrt(n))) = n;
 
Var
  n: Int64;
  
Begin
  Readln(n);
  WritelnFormat('{0} {1}{2}', n, IsSqr(n) ? '' : 'не ', 'является квадратом.');
End.

@Puporev · 17.01.2016, 11:10

Написал и подумал что неправильно, но дальше было или некогда или лень..
f:=frac(sqrt(n))=0;

@Fikafusik · 17.01.2016, 11:12

Puporev, да, через Frac получше будет.

@Василий Федотов 0 / 0 / 0 Регистрация: 15.01.2016 Сообщений: 2
		1
	Вывести True, если натуральное число N является точным квадратом, иначе вывести False 15.01.2016, 22:30. Показов 3692. Ответов 4 Метки нет (Все метки) Составить программу, печатающую значение true, если высказывание вашего варианта является истинным, и false — в противном случае. Данные для формирования условия должны вводиться с клавиатуры. При необходимости, выполнить проверку введенных данных. Натуральное число N является точным квадратом. 0

@Puporev Почетный модератор 64305 / 47600 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.01.2016, 11:10	4
	Написал и подумал что неправильно, но дальше было или некогда или лень.. f:=frac(sqrt(n))=0; 0

@Fikafusik 22 / 22 / 34 Регистрация: 29.04.2014 Сообщений: 145
	17.01.2016, 11:12	5
	Puporev, да, через Frac получше будет. 0