Проверить является ли число квадратом

@valic · Регистрация: 16.02.2011

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

Дано четное натуральное число. Проверить является ли число квадратом.

@Ev[G]eN · 16.02.2011, 21:00

Pascal

var 
 a: integer;
 b: real;
begin
 read(a);
  if (a>=0) then
   begin
    b:=sqrt(a);
     if (b-Round(b)=0) then
      begin
       writeln('Число ',a,' является квадратом числа ',Round(b))
      end
     else
      begin
       writeln('Число ',a,' не является квадратом!');
      end;
     if (a<0) then
      begin
       writeln('Число отрицательное!');
      end;
   end;
end.

@glyph · 16.02.2011, 21:03

Сначала не заметил условие четности исходного, так что не бейте ногами за безусловный переход

Pascal

program opred_sqrt_x;
uses crt;
var tmp:real;
x:integer;
label a;
begin
clrscr;
writeln('Введите число: ');
readln(x);
if (odd(x)=true) then
begin
 writeln('Не удовлетворяет условию чётности!!');
 goto a;
end;
tmp:=sqrt(x);
 if (Frac(tmp)=(0)) then
  begin
  write('Искомое число, квадрат которого равен ',x);
  write(', равно ',tmp);
  end
 else writeln('Число не является квадратом какого-либо целого числа');
 a:
end.

Кстати, PascalABC

@valic 0 / 0 / 0 Регистрация: 16.02.2011 Сообщений: 11
		1
	Проверить является ли число квадратом 16.02.2011, 20:25. Показов 13125. Ответов 2 Метки нет (Все метки) Дано четное натуральное число. Проверить является ли число квадратом. 0

	16.02.2011, 21:03

Проверить является ли число квадратом

Решение