Значение 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%...
<span>
Для вычислений длительностей интервалов дат в Excel есть функция РАЗНДАТ(), в английской версии - DATEDIF().</span><span>Нюанс в том, что Вы не найдете эту функцию в списке Мастера функций, нажав кнопку<span> fx</span> - она является недокументированной возможностью Excel. Точнее говоря, найти описание этой функции и ее аргументов можно только в полной версии англоязычной справки, поскольку на самом деле она оставлена для совместимости со старыми версиями Excel и Lotus 1-2-3. Однако, несмотря на то, что эту функцию не получится вставить стандартным способом через окно <span>Вставка - Функция (Insert - Function)</span>, ее можно вручную вписать в ячейку с клавиатуры - и она сработает!</span>Синтаксис функции следующий:РАЗНДАТ(начальная_дата; конечная_дата; способ_измерения)Самый интересный аргумент, конечно, последний. Он определяет, каким именно образом и в каких единицах будет измеряться интервал между начальной и конечной датами. Этот параметр может принимать следующие значения:<span><span>"y"разница в полных годах </span><span>"m"в полных месяцах</span><span>"d"в полных днях</span><span>"yd"разница в днях с начала года без учета лет</span><span>"md"разница в днях без учета месяцев и лет</span><span>"ym"разница в полных месяцах без учета лет</span></span>Т.е. при желании подсчитать и вывести, например, ваш стаж в виде "3 г. 4 мес. 12 дн.", необходимо ввести в ячейку следующую формулу:=РАЗНДАТ(A1;A2;"y")&" г. "&РАЗНДАТ(A1;A2;"ym")&" мес. "&РАЗНДАТ(A1;A2;"md")&" дн."или в английской версии Excel:<span>=DATEDIF(A1;A2;"y")&" y. "&DATEDIF(A1;A2;"ym")&" m. "&DATEDIF(A1;A2;"md")&" d."</span><span>где А1 - ячейка с датой поступления на работу, А2 - с датой увольнения.</span>
Значит так...очередная нудная программа с простым алгоритмом.
Печатает начальный массив, потом диагональ(в уже измененном массиве), потом новый массив, потом число элементов 19..59, произведение диагонали, сумму элементов столбца s.
program test;
uses crt;
var
arr:array[1..8,1..8] of integer;
i,j,cou,pr,s,sum:integer;
begin
clrscr;
randomize;
pr:=1;
s:=7;
for i:=1 to 8 do
begin
for j:=1 to 8 do
begin
arr[i,j]:=random(127)+2;
write(arr[i,j],' ');
end;
writeln;
end;
writeln;
for i:=1 to 8 do
for j:=1 to 8 do
begin
if (arr[i,j]>18) and (arr[i,j]<60) then
begin
cou:=cou+1;
arr[i,j]:=0;
end;
if i=j then
begin
pr:=pr+arr[i,j];
write(arr[i,j],' ');
end;
if j=s then
sum:=sum+arr[i,j];
end;
writeln;writeln;
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(arr[i,j],' ');
writeln;
end;
writeln;
writeln(cou);
writeln(pr);
writeln(sum);
readln;
end.
Var a, b:real;
I:integer;
begin
I:=1;
b:=0;
while I <> 10 do
begin
read (a);
b:=b+a;
I:=I+1;
end;
b:=b/10;
writeln (b);
end.
____________________
var a, b:real;
I:integer;
begin
I:=0;
b:=0;
repeat
read (a);
b:=b+a;
I:=I+1;
until I=10;
b:=b/10;
writeln (b);
end.
_____________________
var a, b:real;
I:integer;
begin
b:=0;
for I:=1 do 10 to
begin
read (a);
b:=b+a;
I:=I+1;
end;
b:=b/10;
writeln (b);
end.