Надо найти сколько всего символов, да?
Var a:array[1..100,1..100] of integer;
m,n,i,j:integer;
begin
read(m,n);
for i:=1 to m do
for j:=1 to n do
a[i,j]:=j*5;
for i:=1 to m do begin writeln;
for j:=1 to n do
write(a[i,j]:4);
end;
<span>end.
Как то так.</span>
Program h2;
const
n=20;
var i:integer;
s:real;
begin
for i:=2 to n do
begin
if (i mod 2=0) then s:=s+1/i;
end;
writeln(s);
end.
В восьмиричной
30 (8) = 8*3 = 24 (10)
50 (8) = 8*5 = 40 (10)
100 (8) = 8*8*1 + 8*0 + 0 = 64 (10)
Хехе
1) 25*n*n+2*(-7)
2) (2-3*m)/(3+m)
3) -7+ abs(5-n)
4) 5*n - sqrt(2+3*m) - (1/2)