Вычислить произведение целых чисел введенных с клавиатуры . произведение подсчитывается до тех пор , пока вводятся числа в интервале от -10 до +10 через
236
261
Ответы на вопрос:
Var a,p : integer; begin p : = 1; read(a); repeat p: = p*a; read(a) until (a < -10) or (a > 10); write(p); end.
Популярно: Информатика
-
Link200915.09.2021 17:38
-
hohodge30.07.2020 21:31
-
Ученикdsgfgchugffwgc05.12.2021 01:08
-
mariialebedeva29.12.2020 02:23
-
PO3TER18.04.2021 04:53
-
ivanivanlushch17.02.2020 08:50
-
hrustam200407.08.2020 05:12
-
petrov10046925.03.2021 12:42
-
Matvey174578909.06.2021 18:48
-
shintasovazeba30.07.2022 19:24