Люди пожалуйста подскажите как решить:
Найти "n" при котором будет справедливо n=n+1 ???
Полная версия: N=n+1 в паскале это возможно?
Только так: 
var n:set of byte;
begin
n:=[1];
if n=n+[1] then writeln('Справедливо!') else writeln('Несправедливо.');
end.
А еще можно так..
var
n:real;
begin
n:=10e20;
if n=n+1 then write('Yes!')
end.
а еще так
var i: integer;
function n: integer;
begin
dec(i);
n := i;
end;
...
Цитата(Michael_Rybak @ 8.12.2006 16:54) 
а еще так
var i: integer;
function n: integer;
begin
dec(i);
n := i;
end;
...
Красиво!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.