Решить о паскалю дано четыре числа. необходимо найти произведение тех чисел, которые находятся в диапазоне от 3 до 9 включительно. формат входных данных с клавиатуры вводятся 4 целых числа, по модулю не превосходящих 20. формат выходных данных необходимо вывести единственное число — искомое произведение. если чисел, удовлетворяющих условию, нет, выведите -1.
777495
1
13.09.2019 18:50
0
Другие вопросы по теме Информатика
maruha3008
11.08.2020 14:56
дианакис050706
10.08.2020 14:56
sokolovskaymasha
10.08.2020 14:41
marusia20022
10.08.2020 14:37
yananovoselova1
18.01.2020 16:51
kkoluzhonokp08din
09.04.2021 16:26
помогите1185
09.04.2021 16:26
kamilamila2005
09.04.2021 16:26
Популярные вопросы
- Іть мені написати твір на тему усна народна творчість? ? і...
1 - Назови подежи имен существительных и вопросы каждого из подежей...
2 - Какая из точек лежит левее на координатном луче. а) а (30089)или в (8098) б)...
1 - Слова мужского рода с нулевым окончанием...
1 - Правильно составить вопросы! ask questions for these answers. use the words in...
3 - Переделать в passive voice she teaches us english...
1 - Слова мужского рода с нулевым окончанием...
1 - 326: 2 как правильно расписать в столбик...
3 - Детские годы ломоносова приготовить сообшение делать десять...
3 - 37789: 4= проверь какие записи верные...
2
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.