var y: System.uint64; //Большая цЫфра же и положительная x, i: byte; //Нет смысла большие числа брать слишком, переполнение будет
begin readln(x); //Принимаем число... y := 1; i := 1; repeat y *= i; //...и умножаем такое-то количество раз i += 1; until (i > x); if (y = 0) then //Выводим, предусмотрев переполнение writeln('Слишком большая цЫферка') else writeln(y); end.
Int64 - это то же самое, что LongInt, а Uint64 (unsign long int) - длинное число без знака, при правильном использовании позволяет записывать в переменную числа, в 2 раза превышающие максимум Int64
var x, y: integer; s: array of string; b: GraphABC.Point;
begin s := System.IO.File.ReadAllLines('in.txt'); foreach a: string in s do begin X := integer.Parse(a.Replace('(', '').Replace(')', '').Replace(' ', '').Split(';')[0]); Y := integer.Parse(a.Replace('(', '').Replace(')', '').Replace(' ', '').Split(';')[1]); if not (b.IsEmpty) then GraphABC.LineTo(X, Y) else begin GraphABC.MoveTo(X, Y); b := new Point(x, y); end; DrawCircle(x, y, 10); end; LineTo(b.X, b.Y); end.
Код, конечно, вырвиглазный, зато работает и прочитать его относительно легко:)
y: System.uint64; //Большая цЫфра же и положительная
x, i: byte; //Нет смысла большие числа брать слишком, переполнение будет
begin
readln(x); //Принимаем число...
y := 1;
i := 1;
repeat
y *= i; //...и умножаем такое-то количество раз
i += 1;
until (i > x);
if (y = 0) then //Выводим, предусмотрев переполнение
writeln('Слишком большая цЫферка')
else
writeln(y);
end.
Int64 - это то же самое, что LongInt, а Uint64 (unsign long int) - длинное число без знака, при правильном использовании позволяет записывать в переменную числа, в 2 раза превышающие максимум Int64