Написать программу которая подсчитывает произведение целых чисел введеных с клавиатуры. произведение подсчитывается до тех пор пока вводятся числа в интервале -10 до +10
154
389
Ответы на вопрос:
Var a,p: integer; begin p: =1; repeat readln(a); if (a> =-10) and (a< =10) then p: =p*a; until (a> 10) or (a< -10); write(p) end.
Популярно: Информатика
-
maxmaxibon1118.06.2022 08:59
-
Dzhyzefina01.05.2021 01:28
-
lenaa66630.12.2021 22:29
-
Coolgirl109811.01.2023 03:03
-
deva7031.05.2023 13:24
-
ivanovayo0814.04.2020 10:45
-
mussay8625.07.2022 13:09
-
vladmankyta05.02.2021 17:47
-
Kmaj29.09.2022 12:29
-
HYPE11130.05.2021 18:13