Написать программу на паскале. дано натуральное число. вычислить среднее нечетных цифр.

Var n, c, d, p: integer; begin   readln(n);   p : = 1;   while n< > 0 do begin     d : = n mod 10;     n : = n div 10;     if d mod 2 = 1 then begin       p : = p * d;       c : = c + 1;     end;   end;       if c = 0 then writeln (0)   else writeln(exp(ln(p)/c): 0: 3); end.

Векторные изображения состоят из контуров. которые в свою очередь могут быть : гладкими и угловами. растровые изображения состоят из точек которые и называют растром или пиксель. растровые изображения выглядят боилее реалистичнее, такие изображения сохраняются в файлах большего объема. чем векторные. потому что в них запоминается информация о каждом пикселе изображения и такие изображения зависят от их размера. свободное масштбирование таких изображений без потери качества к ним неприменимо. и эта причина несколько затрудяет их редактирование и обработку.

// pascalabc.net 3.2, сборка 1387 от 20.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var a: =matrgen(n,n,(i,j)-> j=n-1-i? n-i: 0);   a.println(2) end. примеры n= 7   0  0  0  0  0  0  7   0  0  0  0  0  6  0   0  0  0  0  5  0  0   0  0  0  4  0  0  0   0  0  3  0  0  0  0   0  2  0  0  0  0  0   1  0  0  0  0  0  0 n= 12   0  0  0  0  0  0  0  0  0  0  0 12   0  0  0  0  0  0  0  0  0  0 11  0   0  0  0  0  0  0  0  0  0 10  0  0   0  0  0  0  0  0  0  0  9  0  0  0   0  0  0  0  0  0  0  8  0  0  0  0   0  0  0  0  0  0  7  0  0  0  0  0   0  0  0  0  0  6  0  0  0  0  0  0   0  0  0  0  5  0  0  0  0  0  0  0   0  0  0  4  0  0  0  0  0  0  0  0   0  0  3  0  0  0  0  0  0  0  0  0   0  2  0  0  0  0  0  0  0  0  0  0   1  0  0  0  0  0  0  0  0  0  0  0