Найти произведение всех целых чисел от 1 до a! !

ИИ (ИСКУССТВЕННЫЙ ИНТЕЛЛЕКТ)

Память человека больше не похожа на неизвестную систему. Это сложная структура, готовая объединить действия в зависимости от решений. v-jet группа внесла свой вклад в развитие ИИ.

icon

BACK-END РАЗРАБОТКА

Каждый продукт связан с администрированием базы данных. В зависимости от требуемой функциональности наша команда изучила множество решений для внедрения высоко масштабируемого веб-сервиса.

icon

ОБЛАЧНЫЕ ТЕХНОЛОГИИ

Мы предоставляем отличные услуги для сложных процессов доставки интегрированной среды разработки, включая разработку, тестирование, хостинг и поддержку APP.

icon

МОБИЛЬНЫЕ ПЛАТЕЖИ

Любые мобильные платежи с множеством опций легко выполнить с нашей Интересы таких услуг и технологий высоки и готовы к совершенствованию. Мы можем предложить вам лучший выбор.

icon

ОБЩЕНИЕ В РЕАЛЬНОМ ВРЕМЕНИ

Вы даже не заметите скорость между генерированием и доставкой данных конечному пользователю. Мы разрешаем любому приложению выполнять обмен сообщениями в реальном времени, а также видео-чаты.

icon

AR / VR

Возможность быть в сети в любое время является обязательным в настоящее время. В будущем мы будем автоматизировать ежедневные процедуры, поэтому каждый будет проводить больше времени с семьей.

icon

НЕЙРОННЫЕ СЕТИ

Голос и распознавание лица стали следующим человеческим чудом в быстром развитии современных технологий. Что вам кажется сложным, очень легко реализовать для нас.

icon

ГРАФИКА

Визуализация данных делает восприятие для пользователей проще. Мы представим всю вашу информацию творчески, понятно и красиво.

icon

ВЫСОКОПРОИЗВОДИТЕЛЬНЫЕ СИСТЕМЫ

Для поддержки большого количества за данных и внутренних вычислений мы предлагаем создание и обслуживание систем и приложений большой нагрузки.

fbfb

bebe

twtw

drdr

lklk

tumtum

inin

type cl = class

  a: integer;

  constructor create(b: integer);

  procedure setval(b: integer);

  function getval: integer;

  procedure sq;

end;

constructor cl.create(b: integer);

begin

  a : = b;

end;

procedure cl.setval(b: integer);

begin

  a : = b;

end;

function cl.getval: integer;

begin

  getval : = a;

end;

procedure cl.sq;

begin

  if a < 0 then

    writeln('a ^ 2 = ', a * a)

  else

    writeln('error');

end;

var

  obj: cl;

  a : integer;

begin

  write('a = ');

  readln(a);

  obj : = cl.create(a);

  obj.sq;

  readln;

  obj.destroy;

end.