Ответы на вопрос:
Var ar: array[1..10] of integer; i,k: integer; begin; k: =1; for i: =1 to 10 do begin; readln(ar[i]); if (ar[i] mod 3=0) or (ar[i] mod 10=3) then k: =k*ar[i]; end; writeln('result: ',k); end.
Популярно: Информатика
-
nazarushka03.09.2020 18:04
-
misha666anibeat05.08.2021 23:03
-
makskot6929.05.2021 00:40
-
andreyshilenko14.05.2020 00:20
-
vaselzhiriy04.07.2021 18:59
-
KeyTii07.01.2023 22:20
-
hnbgh7hyng10.05.2020 12:03
-
анч2131.08.2021 19:08
-
дарья164603.11.2021 14:29
-
9854123g13.12.2022 01:38