VAliokiopop
05.11.2020 01:48

Решить о паскалю дано четыре числа. необходимо найти произведение тех чисел, которые находятся в диапазоне от 3 до 9 включительно. формат входных данных с клавиатуры вводятся 4 целых числа, по модулю не превосходящих 20. формат выходных данных необходимо вывести единственное число — искомое произведение. если чисел, удовлетворяющих условию, нет, выведите -1.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
СофариПарк3
07.10.2020 12:27
Var  n, k, i: integer;
begin  k := 1;  for i := 1 to 4 do  begin    read(n);    if (n >= 3) and (n <= 9) then      k := k * n;  end;  if k = 1 then writeln(-1)  else writeln(k);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота