Составьте программу решения следующей : с первой яблони собрали одно яблоко, со второй 2 яблока, с третьей 3 яблока, с четвертой 4 яблока и т.д. и наконец с 15 - 15 яблок сколько яблок собрали со всех 15 яблонь?
type tM = array[1..n, 1..n] of integer; tV = array[1..n] of integer;
procedure ProdMV(a: tM; b: tV; var c: tV); var i, j, s: integer; begin for i := 1 to n do begin s := 0; for j := 1 to n do s := s + a[i, j] * b[j]; c[i] := s; end end;
procedure SumV(a, b: tV; var c: tV); var i: integer; begin for i := 1 to n do c[i] := a[i] + b[i] end;
procedure InitMatrix(var a: tM; p, q: integer); { Инициализация элементов случайными числами на [p;q]} var i, j, k: integer; begin k := q - p + 1; for i := 1 to n do for j := 1 to n do a[i, j] := Random(k) + p end;
procedure InitVector(var a: tV; p, q: integer); { Инициализация элементов случайными числами на [p;q]} var i, k: integer; begin k := q - p + 1; for i := 1 to n do a[i] := Random(k) + p end;
procedure DisplayMatrix(a: tM; s: string); var i, j: integer; begin Writeln(s); for i := 1 to n do begin for j := 1 to n do Write(a[i, j]:5); Writeln end end;
procedure DisplayVector(a: tV; s: string); var i: integer; begin Writeln(s); for i := 1 to n do Write(a[i]:5); Writeln end;
Ищем в именах файлов закономерности, чтобы выделить пять из них. 1. Есть ровно пять файлов, начинающихся символом "p". В расширении имени (после точки) они имеют от одного до трех символов. Регулярное выражение будет иметь вид p[a-z]*.[a-z]* 2. Есть ровно пять файлов, имена которых завершаются символом "r". В расширении имени (после точки) они имеют от двух до трех символов. Регулярное выражение будет иметь вид [a-z]*r.[a-z]*
Ищем среди ответов похожий. p+[a-z]*.[a-z]* - в принципе, то же, знак + тут необязателен, но и не мешает. [a-z]*r+.[a-z]{3} - все портит это {3}, требующее ровно 3 повторения, а у нас от 2 до 3.
begin
a:=0;
for b:=1 to 15
a:=a+b;
write(a);
end.