Ответы на вопрос:
Const n=6; type vector=array[1..n] of integer; var x: vector; i: integer; pr: extended; begin pr: =1; for i: =1 to n do begin readln(x[i]); if x[i] mod 17=0 then pr: =pr*x[i]; end; writeln('proizvedenie= ',pr: 4: 4); readln; end.
Популярно: Информатика
-
лера140511.04.2021 07:06
-
WaysWhite22.10.2021 07:41
-
Г0ошан4ик17.06.2021 11:58
-
sergeirasnei23.12.2021 02:46
-
pichtook117.06.2022 18:25
-
dauletkulova11.01.2022 19:17
-
oli2105.01.2022 21:30
-
katiabrandt1709.10.2022 18:55
-
y4enik504.05.2020 02:44
-
ilmasha2427.04.2023 07:44