Почему не совпадение типа?
Function SumSqr(n: integer): integer;
var
i:integer;
k:byte;
begin
repeat
i:=int(sqrt(n))-?;
n:=n-sqr(i);
k:=k+1
until n=0
SumSqr:=k;
end;
И это функция является рекурсионой?
var
i:integer;
k:byte;
begin
repeat
i:=int(sqrt(n))-?;
n:=n-sqr(i);
k:=k+1
until n=0
SumSqr:=k;
end;
И это функция является рекурсионой?
смотрим в хелпе к паскалю описание функции Int
[quote=Help]
Declaration:
function Int(X: Real): Real;[/quote]
[quote=Help]
Declaration:
function Int(X: Real): Real;[/quote]
ВуД™
пробуй так:
i:=Round(int(sqrt(n)));
ЗЫ. Переменная n не определена. Или она у Вас глобальная?
пробуй так:
i:=Round(int(sqrt(n)));
ЗЫ. Переменная n не определена. Или она у Вас глобальная?
Цитата: sherry
ВуД™
ЗЫ. Переменная n не определена. Или она у Вас глобальная?
ЗЫ. Переменная n не определена. Или она у Вас глобальная?
она у него параметр функции ;)