Program P1;

перевести в (десятичную), АЕ(шестнадцатой) перевести в (десятичную) Спасибо,спасибо,спасибо

Язык Си. Хотя бы алгоритм

var Z:integer;
function f (n:byte):longint;
begin
if n=0 then f:=1
else f:=(2*n)*f(n-1); end;
begin
z:=f(5); writeln (z);end.

p2=5, p3=7. При этом диапазон однозначного представления чисел равен произведению оснований (в приведенном примере p1∙p2∙p3 = 105, т. е. однозначно представляются все числа от 0 до 104). Любое число в этом диапазоне записывается остатками от целочисленного деления этого числа на выбранные основания. Например, число A = 19 запишется в СО с основаниями 3, 5, 7 так: A = (1, 4, 5). Укажите, какая из записей соответствует числу 5, записанному в системе остатков с основаниями 3, 5, 7.
1) (3, 0, 2) 2) (2, 0, 2) 3) (2, 0, 5) 4) (5, 5, 5)

противном случае все отрицательные элементы матрицы возвести в квадрат.

У меня получилось вот что:

program s455;
uses crt;
const
m=10;
n=12;
Var
A: array[1..m,1..n] of integer;
i, j, k, s: integer;

Begin
writeln('Enter size');
readln;
s:=0;
for j:=1 to m do
begin
k:=0;
for i:=1 to n do
end;
begin
if a<0 then begin
k:=1;
end;
if k=1 then s:=s+1;
end;
begin;
if k<0
then a[i, j]:=a[i, j*2-1]*10;
else a[i, j]:=a[i, j]*c [i, j]
end;
writeln

Не могу понять в чем ошибка

c:array [1..5] of ocenki;

begin k:=0;

For i:=1 to 5 do

With c[i] do

begin

write('vvedite name'); readln(name);

write('vvedine marks');

for i:=1 to 5 do read(marks[i]);

a:=i;

if c[a].marks < 2 (вот здесь выдает что операнды имеют неприводимые типы) then k:=k+1; writeln(k);

end;

end.

(Подскажите пожалуйста где допустила ошибку)