Полный квадрат

@OlegNice · Регистрация: 16.04.2013

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

Проверить если ли число n(1<n<12345678), полным квадратом? Если да вывести "YEs", а если нет"NO"

@ermolay · 16.04.2013, 23:50

Pascal

var
  n: longint;
begin
  repeat
    writeln('Enter N: ');
    readln(n);
  until (n>1)and(n<12345678);
  if frac(sqrt(n))=0 then writeln('Yes')
    else writeln('No');
  readln;
end.

@OlegNice · 16.04.2013, 23:56 **[ТС]**

Программа слишком много идёт. Можно это как-то изменить?

@Chertenok_n_13 · 16.04.2013, 23:58

Pascal

var n:longint;
 
begin
writeln('Введите число');
readln (n);
while (n<=1) or (n>=12345678) do begin
writeln('Неверно введено число');
readln(n); end;
 
 
if sqrt(n) =round (sqrt(n)) then writeln('yes') else writeln('no');
readln;
end.

@OlegNice · 17.04.2013, 00:30 **[ТС]**

В таком случае результата нету вовсе.

Добавлено через 26 минут
всё работает)

@~~MansMI~~ · 17.04.2013, 00:35

строка 11:
if sqrt(n) =trunc(sqrt(n)) then writeln('yes') else writeln('no');

@Chertenok_n_13 · 17.04.2013, 00:39

Сообщение от MansMI

строка 11:
if sqrt(n) =trunc(sqrt(n)) then writeln('yes') else writeln('no');

эм... а разница?
что он до меньшего обрежет, что округлит. если дробное получилось, то все равно результат округления не будет равняться корню.

@~~MansMI~~ · 17.04.2013, 00:41

ну не я же сказал, что предыдущий не работает
хотя мутны дела FPU

@Chertenok_n_13 · 17.04.2013, 00:52

Не по теме:

MansMI, не знаю, что у него там не работает. у меня все прекрасно считает)
и так, и так как ты сказал.

@OlegNice 0 / 0 / 0 Регистрация: 16.04.2013 Сообщений: 6
		1
	Полный квадрат 16.04.2013, 23:23. Показов 3900. Ответов 8 Метки нет (Все метки) Проверить если ли число n(1<n<12345678), полным квадратом? Если да вывести "YEs", а если нет"NO" 0

@OlegNice 0 / 0 / 0 Регистрация: 16.04.2013 Сообщений: 6
	16.04.2013, 23:56 [ТС]	3
	Программа слишком много идёт. Можно это как-то изменить? 0

@OlegNice 0 / 0 / 0 Регистрация: 16.04.2013 Сообщений: 6
	17.04.2013, 00:30 [ТС]	5
	В таком случае результата нету вовсе. Добавлено через 26 минут всё работает) 0

@~~MansMI~~ Заблокирован
	17.04.2013, 00:35	6
	строка 11: if sqrt(n) =trunc(sqrt(n)) then writeln('yes') else writeln('no'); 0

@Chertenok_n_13 219 / 125 / 99 Регистрация: 14.03.2011 Сообщений: 628
	17.04.2013, 00:39	7
	Сообщение от MansMI строка 11: if sqrt(n) =trunc(sqrt(n)) then writeln('yes') else writeln('no'); эм... а разница? что он до меньшего обрежет, что округлит. если дробное получилось, то все равно результат округления не будет равняться корню. 0

@~~MansMI~~ Заблокирован
	17.04.2013, 00:41	8
	ну не я же сказал, что предыдущий не работает хотя мутны дела FPU 0

@Chertenok_n_13
	17.04.2013, 00:52 Полный квадрат #9
	Не по теме: MansMI, не знаю, что у него там не работает. у меня все прекрасно считает) и так, и так как ты сказал. 0