Версия для печати темы

Автор: ranger 8.12.2006 18:43

Люди пожалуйста подскажите как решить:
Найти "n" при котором будет справедливо n=n+1 ???

Автор: hiv 8.12.2006 18:59

Только так:

var n:set of byte;
begin
n:=[1];
if n=n+[1] then writeln('Справедливо!') else writeln('Несправедливо.');
end.

Автор: Lapp 8.12.2006 19:07

А еще можно так..

var
  n:real;

begin
  n:=10e20;
  if n=n+1 then write('Yes!')
end.

Автор: Michael_Rybak 8.12.2006 19:54

а еще так

var i: integer;
function n: integer;
begin
  dec(i);
  n := i;
end;
...

Автор: Lapp 8.12.2006 20:00

Цитата(Michael_Rybak @ 8.12.2006 16:54)

var i: integer;
function n: integer;
begin
  dec(i);
  n := i;
end;
...