K:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<>0 then k:=k+1;
A и b - это, я так понял, x и y? Тогда так.
П1 <-> П0 3 <-> x^y 2 , 5 ИП0 ИП1 * * - 1 , 7 8 ИП0 x^2 * + 2 , 5 ИП1 * - 1 + С/П
Символ "П" в кодировке Hex будет "CF" ,
в кодировке Dec будет "207" , в
кодировке HTML будет " ∏ "
Var
s,sd:string;
i,n,sum,d,err:integer;
begin
Writeln('Введите строку для суммирования');
Read(s);
sum:=0;
n:=Length(s);
if n>0 then begin
i:=2; sd:=s[1];
while i<=n do begin
if s[i]<>'+' then sd:=sd+s[i]
else begin
Val(sd,d,err);
sum:=sum+d;
sd:=''
end;
Inc(i);
end;
Val(sd,d,err);
sum:=sum+d
end;
Writeln('Сумма равна ',sum)
end.
<u><em>Тестовые примеры:</em></u>
Введите строку для суммирования
1+25+3
Сумма равна 29
Введите строку для суммирования
143+38+253+62
Сумма равна 496
Var
x, y, d : real;
begin
read (x, y);
d := sqr (x) + sqr (y);
read (x, y);
if d > sqr (x) + sqr (y) then write ('Вторая ближе') else write ('Первая ближе');
end.