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>
Определите, какая из двух точек A и B находится ближе к началу координат.
Если точки находятся на одинаковом расстоянии, вывести 'Точки A и B находятся на одинаковом расстоянии от начала координат'.
Var s:string; k,i:integer;
begin
write('Введите слово: '); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='е' then k:=k+1;
writeln('В слове ',s,' буква а встречается ',k,' раз');
end.
var x:integer;
Begin
write('Введите число: '); read(x);
if(x mod 3 = 0) then write('Число кратно трем!') else
write('Число не кратно трем (остаток: '+x mod 3+')');
End.