Var r,s,b:real;
begin readln (b);
r:=b/2*(1+sqr(2));
s:=8*sqr(r)*sqr(3)-(sqr(2)*2);
writeln (r);
writeln(s);
<span>end.</span>
Задание 1:
Строку 1 и столбец A заполняете единицами. В ячейку B2 вводите формулу =A2+B1, затем её копируете (делаете протяжку)
Задание 2:
Строку 1 и столбец A заполняете по образцу (0 и 1). В ячейку B2 вводите формулу =A1+B1, затем её копируете (делаете протяжку)
<span><span>program ggl;
</span>Это название программы
</span><span>var n, i, sum : integer;
</span>Описание переменных
<span>a : array [1..1000] of integer;
</span>Описание массива а (он целочиленный, в интервале от 1 до 1000)
<span>begin readln (n);
</span>Начало программы, запрос значение переменной n
<span> sum := 0;
</span>Присвоение переменной sum значение 0
begin readln (n);
sum := 0;
<span> for i := 1 to n do begin </span>
<span> a[i] := random (100); </span>
write (a[i], ' ');
<span> sum := sum + a[i]; </span>
<span>end; </span>
begin характеризует начало новой подпрограммы. Она - цикл, в котором идет перебор чисел от 1 до значения n, элементам массива a присваиваются рандомные числа от 1 до 100, элементы массива выводятся на экран.<span>
</span>После идет подсчет значения переменной sum (причем сначала находится, например, первый элемент массива, а уже после значение переменной sum, после второй элемент массива и он прибавляется к прежнему значению переменной sum). Подпрограмма кончается.
writeln;
write (sum / n);
<span>end.
</span>Вывод значения деления переменной sum на переменную n. Конец всей программы.
Значение S есть просто знак числа x.
Это стандартная математическая функция.
В школе записывается как sign(x).
Блок схема будет в один блок - вернуть sign(x).
Процедура в MS Excel будет такой
=ЗНАК(B1)
про эту функцию можно прочитать тут
https://support.office.com/ru-ru/article/%D0%97%D0%9D%D0%90%D0%9A-%D1%84%D1%83%D0%BD%D0%BA%D1%86%D0%...
