Создать программку на Паскале .номер 3 безотлагательно

Создать программку на Паскале .номер 3 безотлагательно

Задать свой вопрос
1 ответ

var n,n1,i: integer;
begin
  write('N = ');  readln(n);
  if n mod 2=0  then i:=2
  else i:=1;
  n1:=1;
  repeat
    n1:=n1*i;
    i:=i+2;
  until igt;n;
  writeln('N1 = ',n1);
end.

N = 6N1 = 48

N = 5N1 = 15





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


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

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

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

Войти на сайт