Напечатать четные, натуральные числа , не превышающие n.n ввести с клавиатуры. программа в паскаль.

Введем обозначение. все, относящееся к прямоугольникам первого вида будет иметь индекс 1, ворого вида - индекс 2. пусть имеется n₁ и n₂ прямоугольников. по условию n₁+n₂ = w₁ и n₁=n₂, откуда n₁=w₁ и n₂=w₁ площади: s₁=w₁×h₁, s₂=w₂×h₂ общая площадь s = n₁×w₁×h₁ + n₁×w₂×h₂ = w₁×(w₁×h₁ + w₂×h₂) // pascalabc.net 3.2, сборка 1345 от 24.11.2016 // внимание! если программа не работает, обновите её версию! begin   var h1,w1,h2,w2: real;   read(h1,w1,h2,w2);   writeln(w1*(w1*h1+w2*h2)) end. пример 1 2 3 4 28

// pascalabc.net 3.2, сборка 1345 от 24.11.2016 // внимание! если программа не работает, обновите её версию! begin   writeln(' x    x^2      x^3');   for var i: =1 to 50 do writeln(i: 3,i*i: 5,i*i*i: 8); end. результат   x    x^2      x^3   1      1            1   2      4            8   3      9          27   4    16          64   5    25        125   6    36        216   7    49        343   8    64        512   9    81        729   10  100      1000   11  121      1331   12  144      1728   13  169      2197   14  196      2744   15  225      3375   16  256      4096   17  289      4913   18  324      5832   19  361      6859   20  400      8000   21  441      9261   22  484    10648   23  529    12167   24  576    13824   25  625    15625   26  676    17576   27  729    19683   28  784    21952   29  841    24389   30  900    27000   31  961    29791   32 1024    32768   33 1089    35937   34 1156    39304   35 1225    42875   36 1296    46656   37 1369    50653   38 1444    54872   39 1521    59319   40 1600    64000   41 1681    68921   42 1764    74088   43 1849    79507   44 1936    85184   45 2025    91125   46 2116    97336   47 2209  103823   48 2304  110592   49 2401  117649   50 2500  125000