Атрибуты method, action и <input type='submit'>.
А конкретнее method='POST' action='post.php' и <input type='submit'> внутри формы
Держи программу. Вывод сделай сам. Верного ответа я не вижу...
const m = 7;
var
X: array [1..m, 1..m] of integer;
A, i, j: integer;
begin
randomize;
A := 100;
for i := 1 to m do
begin
for j := 1 to m do
begin
X[i, j] := random(20);
write(X[i, j]:6);
end;
writeln;
end;
write('======================');
writeln('======================');
for i := 1 to m do
for j := 1 to m do
if i mod 2 <> 0 then
X[j, i] := A;
for i := 1 to m do
begin
for j := 1 to m do
begin
write(X[i, j]:6);
end;
writeln;
end;
end.
n = int(input("Введите n: "))
s = 0
for i in range(0,n+1):
s = s+1/(2*i+1)
print('s = ',s)
Пример:
Введите n: 5
s = 1.878210678210678
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(15, 0, 150);
a.Println;
Println('max =', a.Max);
Println('Нечетных:', a.Where(t -> t.IsOdd).Count);
Println('Сумма элементов, не превышающих 100:',
a.Where(t -> t <= 100).Sum);
Writeln('Число 20 в массиве',a.Contains(20)?'':' не',' встречается');
a.Sort;
a.Println
end.
<h3>66 101 58 108 113 143 23 57 36 0 20 27 35 6 138</h3><h3>max = 143 </h3><h3>Нечетных: 7 </h3><h3>Сумма элементов, не превышающих 100: 328 </h3><h3>Число 20 в массиве встречается</h3><h3>0 6 20 23 27 35 36 57 58 66 101 108 113 138 143</h3>