(для студентов)pascalabc.net дана действительная матрица размером n*m. найти среднее арифметическое каждого из столбцов, имеющих четные номера. подсчет среднего арифметического оформить функцией. напишите код программы.
174
293
Ответы на вопрос:
Var x,k: integer; begin read (x); while x> 1 do begin if x mod 2 = 0 then k: =k+1; x: =x div 10 end; write (k); end.
Популярно: Информатика
-
Gutentag105.06.2020 00:22
-
alinakyberskaya25.02.2021 13:48
-
hvorovmax13.07.2021 04:18
-
olesyapurzikova20.08.2022 09:22
-
rukonya200925.06.2023 22:45
-
skyblue112.05.2023 15:32
-
Artyr201726.11.2021 01:17
-
Мирамкуль118.06.2021 10:56
-
inglis198201.06.2023 18:26
-
али54406.07.2021 20:42