Чернцов
6 год назад
Пожалуйста посчитайте решить задачу о ПаскалюДано четыре числа. Необходимо найти произведение тех чисел, которые находятся в диапазоне от 3 до 9 включительно. Формат входных данныхС клавиатуры вводятся 4 целых числа, по модулю не превосходящих 20. Формат выходных данныхНеобходимо вывести единственное число — искомое произведение. Если чисел, удовлетворяющих условию, нет, выведите -1.
ОТВЕТЫ
Taylor Corey
Oct 24, 2020
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.
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.
96
Смежные вопросы:
