Var s,k: integer;Begins := 1;for k := 1 to 17 dos

Var s,k: integer;
Begin
s := 1;
for k := 1 to 17 do
s := (k-5)*s;
writeln(s);
End.
Напишите ответ пожалуйста!

Задать свой вопрос
1 ответ
  • не будет вывода, будет Синтаксическая ошибка, нельзя отымать от массива игровое число
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт