Задание №1*. Вычислите значения логических выражений в предлагаемой
таблице (true, false).
298
331
Ответы на вопрос:
Const n = 30; var a: array [1..n] of longint; i, j, k: longint; begin for i: =1 to n do readln(a[i]); k: =0 for i: =0 to n do begin if (a[i]mod6=0) or (a[i]mod11=0) and (a[i]< > 0) then inc(k); writeln(k)
Популярно: Информатика
-
Афооня06.03.2022 01:07
-
KatyaDro29.08.2021 11:04
-
st1nk1n1p04.03.2023 02:27
-
maksim2277101.01.2021 13:59
-
очочов28.06.2020 03:34
-
SherlockAlya25.09.2021 21:23
-
tcalala24.04.2022 17:38
-
vauguq27.01.2023 00:07
-
egorikysik11.09.2021 21:02
-
Melissa60711.07.2022 01:33