Найти сумму 60-ти первых членов арифметической последовательности заданной формулой bn=3n-1. напишите под такой пример код для паскаля, ибо я сам не могу вдуплить как можно с паскаля подобные примеры решать.
217
319
Ответы на вопрос:
//pascalabc.net 3.2 function f(n: integer): =3*n-1; begin var sum: =0; for var i: =1 to 60 do sum+=f(i); write (sum); end.
Const mm = 20; var a: array[1..mm, 1..mm] of integer; i, j, m, s: integer; begin write('введите число строк (столбцов) матрицы: '); readln(m); randomize; writeln(#13#10, 'исходная матрица'); for i : = 1 to m do begin for j : = 1 to m do begin a[i, j] : = random(99) + 1; { числа 1..99 } write(a[i, j]: 3) end; writeln end; writeln('*** главная диагональ ***'); for i : = 1 to m do write(a[i, i]: 3); writeln; writeln('*** побочная диагональ ***'); for i : = 1 to m do write(a[i, m - i + 1]: 3); writeln; write('сумма четных элементов по периметру равна '); s : = 0; for j : = 1 to m do if a[1, j] mod 2 = 0 then s : = s + a[1, j]; for j : = 1 to m do if a[m, j] mod 2 = 0 then s : = s + a[m, j]; for i : = 2 to m-1 do if a[i, 1] mod 2 = 0 then s : = s + a[i, 1]; for i : = 2 to m-1 do if a[i, m] mod 2 = 0 then s : = s + a[i, m]; writeln(s) end. тестовое решение: введите число строк (столбцов) матрицы: 10 исходная матрица 12 81 22 55 45 97 37 95 33 84 4 40 77 85 20 15 40 41 64 16 17 72 42 32 85 94 7 39 65 46 22 23 58 69 53 40 65 49 70 20 90 62 26 60 53 13 19 2 21 31 50 55 8 29 26 39 40 89 70 51 91 98 31 86 62 80 81 9 32 79 49 90 71 44 26 55 46 81 79 73 75 5 18 34 96 67 16 29 43 15 1 76 78 19 28 91 31 39 98 73 *** главная диагональ *** 12 40 42 69 53 39 81 81 43 73 *** побочная диагональ *** 84 64 39 65 13 26 86 71 5 1 сумма четных элементов по периметру равна 646
Популярно: Информатика
-
Лвлчтчтчтчтчь14.05.2023 04:59
-
Аааааяяяяяннннн19.01.2022 10:25
-
Milintin2523.08.2020 15:47
-
FalleNGoD713.03.2023 11:46
-
Tinka12318.01.2020 04:05
-
Карапиди31.10.2020 06:49
-
dofkatop00nj713.03.2021 14:40
-
McMamon10.05.2022 13:58
-
iwanttobelllllive09.09.2021 00:44
-
Brolik07.08.2021 09:52