Помощь - Поиск - Пользователи - Календарь
Полная версия: N=n+1 в паскале это возможно?
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
ranger
Люди пожалуйста подскажите как решить:
Найти "n" при котором будет справедливо n=n+1 ???
hiv
Только так: lol.gif
var n:set of byte;
begin
n:=[1];
if n=n+[1] then writeln('Справедливо!') else writeln('Несправедливо.');
end.
Lapp
А еще можно так..
var
n:real;

begin
n:=10e20;
if n=n+1 then write('Yes!')
end.
Michael_Rybak
а еще так

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

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

а еще так

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



Красиво!! smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.