Компьютеры плотно связаны с нашей жизнью, они повсюду, у каждого дома есть хотя бы 1. Когда-то они были пригодны лишь для вычисления чего-либо, но сегодня их используют для решения и многих бытовых проблем, например: печать текста, соединения с сетью "интернет", в целях образования или общения... . Без него нашу жизнь уже не представить, ведь он делает её куда проще. Со временем он будет ещё больше сливаться с нашей жизнью, к добру это или к худу. На большее фантазии не хватило
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.
Код, конечно, вырвиглазный, зато работает и прочитать его относительно легко:)
На большее фантазии не хватило