Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Вводится натуральное число. Определить, является ли оно полным квадратом.
Pascal

Ответ оставил Гость

Var  n,i,o: integer;
begin 
read(n); 
while i<=n do Begin   
if sqr(i) = n then Begin write(Да, число ,n, является квадратом чилса ,i); o:=1; end;    i:=i+1; 
End; 
if o<>1 then write(Это число не полный квадрат);
end.