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

[LLIypLLIyH]

А почему она не пашет тО?

[Sunrise]

Контрольный показ кода :-)

program hz;
var
	i,num,n,numsqr:integer;
	ok:boolean;
begin
	readln(n);
	for i:=1 to n do begin
		num := i;
		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;
		if ok then writeln(i);
	end;
end;

А то я мог не там end; написать.

[LLIypLLIyH]

она говорит тут косяк
num := num div 10;
говоит Assigment FOR-Loop variable 'num'

[LLIypLLIyH]

Она курсор ставит между = и num

[Sunrise]

num в моем коде - не счетчик цикла, так что такой ошибки быть не должно. Может, ты юзаешь старый код? Посмотри, совпадает ли то, что ты компилируешь, с моим последним вариантом.

[LLIypLLIyH]

Да совпадает, я в Консоле делфи длеаю его

[Sunrise]

Там в последней строчке вместо
end;
поставь
end.
У меня после этого исправления компилируется и даже работает

[merax]

Иди читай книжку... Три страницы бестолкового флуда. Компутер сам уже наверное понял, а до вас все не доходит.