Var s:string;
begin
s:=Chr(66)+Chr(69)+Chr(71)+Chr(73)+Chr(78); {Chr(номер); <- Символ по номеру кода в таблице ascii}
writeln(s); [Выводим строку символов}
end.
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);
<span>end.
</span><span>==========================================
</span><span>Int64 - это то же самое, что LongInt, а Uint64 (unsign long int) - длинное число без знака, при правильном использовании позволяет записывать в переменную числа, в 2 раза превышающие максимум Int64</span>
uses Crt;
var a, b, temp, i, S:integer;
begin
ClrScr;
Write (' a = '); ReadLn(a);
Write (' b = '); ReadLn(b);
S:=0;
i:=a;
while i<=b do
begin
if (i mod 2 = 0) then S:=S+i;
i:=i+1;
end;
WriteLn(' S = ', S);
ReadLn;
end.
var x: integer;
begin
write('X=');
readln(x);
if x mod 2=0 then
writeln('X является чётным числом');
else
writeln('X является нечётным числом');
end;