Паскаль или Делифи консоль

[LLIypLLIyH]

var
 num,numsqr:real;
 ok:text;
begin

numSqr:= num * num;
ok:=true;
while num <> 0 do begin
    if ((num mod 10) <> (numSqr mod 10)) then begin
        ok := false;
        break;
    end;
    num := num div 10;
    numSqr := numSqr div 10;
end;

так не катит

Используйте тег <CODE>

[Sunrise]

Вставить это в цикл:

for i := 1 to n do begin
        num := i;
	//здесь мой код
	if ok then writeln(num);
end;

Ну и еще надо объявить все используемые переменные.

[LLIypLLIyH]

Не работат чё то

А ОК какой тип переменой и что такое div ?

[Sunrise]

Покажи, что ты компилируешь

[LLIypLLIyH]

var
 num,n,,numsqr:real;
 ok:text;
begin
for num:=1  to n do begin
numSqr := num * num;
ok := true;
while num <> 0 do begin
	if ((num mod 10) <> (numSqr mod 10)) then begin
		ok := false;
		break;
	end;
	num := num div 10;
	numSqr := numSqr div 10;
	if ok then writeln(num);
end;

Используйте тег <CODE>

[Sunrise]

var
num,n,numsqr:integer;
ok:text;
begin
readln(n);
for num:=1 to n do begin
numSqr := num * num;
ok := true;
while num <> 0 do begin
if ((num mod 10) <> (numSqr mod 10)) then begin
ok := false;
break;
end;
num := num div 10;
numSqr := numSqr div 10;
if ok then writeln(num);
end;
end;

[LLIypLLIyH]

он на TRUE ругается

[Sunrise]

Ой, не заметил :-)
ok должно быть boolean
А div - это деление нацело. То есть от частного просто отбрасывается дробная часть.

[LLIypLLIyH]

ok := false;
break;
end;
num:=num div 10;  ругается)
numSqr := numSqr div 10;
if ok then writeln(num);
end;
end;

а DIV можно слешем заменитЬ?

Используйте тег <CODE>

[Sunrise]

mod работает только с целыми числами, поэтому на каждой итерации нам нужен integer. Если же поставить там слэш, то получится real (или другой тип с плавающей точкой, не знаю точно, как это выглядит в delphi).