Ответы на вопрос:
var m,x,n,p,i: integer; s: boolean; beginp: =1; writeln('vvedite kolichestvo chisel: '); read(n); writeln('vvedite chislo s kotorim sravnit: '); read(m); writeln('vvedite cifri: '); for i: =1 to n do beginreadln(x); if m< x then begin p: =p*x; s: =true; end; end; if s=true then writeln('proizvedenie - ',p) else writeln('net takih chisel'); end.
Популярно: Информатика
-
atalalihin23.08.2021 09:03
-
sapunovegor2229.11.2021 01:40
-
Lisa2003black06.05.2021 15:57
-
dgfdgrrfd29.11.2022 20:23
-
Даня10000000015.05.2023 14:46
-
Bamper110.02.2021 13:27
-
Vilgam06.01.2022 03:49
-
lubovsalamatova30.07.2020 09:15
-
ника1108200117.05.2021 13:56
-
Degradant8113.11.2022 02:37