написать программу на заранее. Дана числовая последовательность: {a1=0, a2=4, …, an=an-1-3an-2}. Найти сумму отрицательных элементов при n=25. Исходные данные: количество элементов n - целый тип, значение х - an-2 целый тип, y - an-1 целый тип. Результат: Сумма отрицательных элементов S – целый тип. Для вычисления нового значения an необходимо знать 2 предыдущих значения. Для получения нового значения an надо знать an-1 и an-2 , которые необходимо сохранять в дополнительных переменных. Тестовый пример: с получаем S= -1644128
Задача №1 var a:array[1..4, 1..5] of integer; i,j,k:integer; begin writeln('Заполните матрицу'); for i:=1 to 4 do for j:=1 to 5 do begin read(a[i,j]); if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j]; end; writeln('Сумма элементов кратных 3-м и > 20 = ',k); end.
Задача №2 var a:array[1..5, 1..5] of integer; i,j,k:integer; begin writeln('Заполните матрицу'); for i:=1 to 5 do for j:=1 to 5 do begin read(a[i,j]); if i=j then k:=k+a[i,j]; end; writeln('Сумма элементов главной диагонали = ',k); end.
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016 begin var n:=ReadInteger('n='); var r:BigInteger:=1; for var i:=1 to n do begin r*=2; Writeln(i,' - ',r) end end.
var a:array[1..4, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 4 do
for j:=1 to 5 do begin
read(a[i,j]);
if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j];
end;
writeln('Сумма элементов кратных 3-м и > 20 = ',k);
end.
Задача №2
var a:array[1..5, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
if i=j then k:=k+a[i,j];
end;
writeln('Сумма элементов главной диагонали = ',k);
end.
begin
var n:=ReadInteger('n=');
var r:BigInteger:=1;
for var i:=1 to n do begin
r*=2; Writeln(i,' - ',r)
end
end.
Тестовое решение:
n= 50
1 - 2
2 - 4
3 - 8
4 - 16
5 - 32
6 - 64
7 - 128
8 - 256
9 - 512
10 - 1024
11 - 2048
12 - 4096
13 - 8192
14 - 16384
15 - 32768
16 - 65536
17 - 131072
18 - 262144
19 - 524288
20 - 1048576
21 - 2097152
22 - 4194304
23 - 8388608
24 - 16777216
25 - 33554432
26 - 67108864
27 - 134217728
28 - 268435456
29 - 536870912
30 - 1073741824
31 - 2147483648
32 - 4294967296
33 - 8589934592
34 - 17179869184
35 - 34359738368
36 - 68719476736
37 - 137438953472
38 - 274877906944
39 - 549755813888
40 - 1099511627776
41 - 2199023255552
42 - 4398046511104
43 - 8796093022208
44 - 17592186044416
45 - 35184372088832
46 - 70368744177664
47 - 140737488355328
48 - 281474976710656
49 - 562949953421312
50 - 1125899906842624