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

Помогите решить задачку о Паскалю
Дано четыре числа. Необходимо найти творение тех чисел, которые находятся в спектре от 3 до 9 включительно. Формат входных данных С клавиатуры вводятся 4 целых числа, по модулю не превосходящих 20. Формат выходных данных Нужно вывести единственное число разыскиваемое творенье. Если чисел, удовлетворяющих условию, нет, выведите -1.

Задать свой вопрос
1 ответ
Var  n, k, i: integer;
begin  k := 1;  for i := 1 to 4 do  begin    read(n);    if (n gt;= 3) and (n lt;= 9) then      k := k * n;  end;  if k = 1 then writeln(-1)  else writeln(k);end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт