begin
var k := 10;
var x := ReadArrReal('Введи 10 элементов Х:', k);
var y := SeqGen(k, n -> (x[n - 1] / 2) ** n / n, 1).Sum;
y.Println;
end.
Var sum,p,x,z:integer;
<span>begin </span>
<span>writeln('Введите трёхзначное число'); </span>
<span>read(x); </span>
<span>sum:=x mod 10 + x div 100 + x div 10 mod 10; </span>
<span>p:=(x mod 10) * (x div 100) * (x div 10 mod 10); </span>
<span>z:=(x mod 10 *100) + (x div 10 mod 10 *10) + (x div 100); </span>
<span>writeln('Сумма цифр =',sum); </span>
<span>writeln('Среднее арифметическое цифр =',sum/3); </span>
<span>writeln('Произведение цифр =',p); </span>
<span>writeln('После перестановки 1 и 3 цифр =',z); </span>
<span>end.</span>
Const
n = 10;
var
a: array[1..n, 1..n] of integer;
i, j: integer;
begin
Randomize;
Writeln('Исходная матрица');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
for i:=1 to n do a[i,i]:=0;
Writeln('Результирующая матрица');
for i := 1 to n do
begin
for j := 1 to n do Write(a[i, j]:4);
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Исходная матрица
-19 15 42 44 32 41 -11 -21 14 -29
33 -8 -21 -33 -38 28 21 43 39 -46
-1 33 13 23 -38 32 -25 -26 43 41
7 6 39 14 48 37 -3 -3 -2 -41
-26 40 -38 -24 16 43 -17 3 7 7
37 20 17 44 28 -2 -49 -32 32 -50
16 -35 -14 23 14 -23 3 15 -31 -24
-19 -26 -5 30 30 9 20 -13 -43 -30
-2 22 17 -15 -46 38 39 46 37 -1
36 -22 15 -2 -7 -41 3 -10 12 -12
Результирующая матрица
0 15 42 44 32 41 -11 -21 14 -29
33 0 -21 -33 -38 28 21 43 39 -46
-1 33 0 23 -38 32 -25 -26 43 41
7 6 39 0 48 37 -3 -3 -2 -41
-26 40 -38 -24 0 43 -17 3 7 7
37 20 17 44 28 0 -49 -32 32 -50
16 -35 -14 23 14 -23 0 15 -31 -24
-19 -26 -5 30 30 9 20 0 -43 -30
-2 22 17 -15 -46 38 39 46 0 -1
36 -22 15 -2 -7 -41 3 -10 12 0
Петр вася маша оля антон соня
иван ира аня катя
Форматирование
текста - процесс оформления страницы, абзаца, строки, символа.
<span> В текстовом процессоре Word существуют два
способа форматирования текста: прямое форматирование выделенных фрагментов и
стилевое форматирование, с помощью которого можно переформатировать сразу
несколько абзацев без предварительного их выделения</span>