//PascalABC.Net 3.2
procedure swap (var a1, a2: integer);
begin
var promt:=a1;
a1:=a2;
a2:=promt;
end;
begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger ('Размерность : '));
var i:=-1;
while (i+2)<length (a) do
begin
i+=2;
swap (a[i], a[i-1]);
end;
a.Print;
end.
Я пологаю вы работаете с Exel.
Для начала напротив клетки "Площадь", вычислите площать вставив функцию суммы.
В след клетке сложите весь объём так, вставкой математической функции, потом выделив графу глубины и все данные используйте функцию MAX
ПОтом выделеите все клетки напротив "напор" и используйте функцию MIN
C одной стороны перед словом <span> Paper.doc есть пробел, что делает все варианты неправильными=))</span>
с другой сторны, все 4 варианта могут являться способом задания пути к файлу...
Блок-схема - в прилагаемом файле.
Программу Вам написали правильно:
var
i, p: integer;
begin
p := 1;
for i := 4 to 7 do p := p * i;
writeln('P = ', p);
end.
Результат:
P = 840
Т.к. нужно чтобы все цифры числа были либо четными либо нечетными
то будет больше тех чисел, у котрорых подходит больше цифр.
четные цифры до 10: 2,4,6,8;
нечетные цифры до 10: 1,3,5,7,9;
=>больше будет 5 значных нечетных чисел.
(2500 5 значных четных чисел и 3125 5 значных нечетных чисел)