Найти творение чётных чисел в диапазоне от 1 до 10 в

Найти творение чётных чисел в спектре от 1 до 10 в программке Pasqal ABC

Задать свой вопрос
1 ответ
Var i,p: integer;
begin
  i:=2;
  p:=1;
  repeat
    p:=p*i;
    i:=i+2;
  until igt;10;
  writeln('творенье: ',p);
end.

творение: 3840


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт