Ответы на вопрос:
1) const n=100000; var k: integer; flag: boolean; a: array[1..n]of integer; begin flag: =false; randomize; read(k); for i: =1 to n do begin a[i]: =random(1000); if (a[i] mod k=0) and (i mod 2=0) then flag: =true; end; if flag then write('есть') else write('нет"); end.
Популярно: Информатика
-
owl4206.03.2021 00:07
-
stasison30.11.2022 15:28
-
DenchikKing13.06.2020 00:39
-
Nika103227.11.2022 23:41
-
саша400504.01.2020 21:32
-
арана1925.08.2021 06:47
-
onpapion29.07.2020 18:02
-
bagzina03.04.2020 20:34
-
222111ALEXA11122204.11.2021 23:23
-
Вікторія23200323.10.2021 00:05