модель типо модели глобуса или модели (девушки)
27D
-
191
--------
EC
Как считать? До 9 - как обычно, дальше 10=А, 11=B, 12=C, 13=D, 14=E, 15=F.
D-1=C (это понятно, 13-1=12), а вот от 7 нельзя отнять 9. Поэтому, как обычно при делении в столбик, "занимаем "единичку" в старшем разряде, но если в десятичной системе мы добавляем 10, то в шестнадцатиричной - 16. Поэтому получаем 7+16-9=14, а это записывается как E. Далее, у двойки "заняли" единицу, осталась 1. 1-1=0, не пишем. Все.
Const
n=5;m=7;
var
a:array[1..n,1..m]of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
writeln;
for i:=1 to n do
begin
for j:=2 to m do
if j mod 2=0 then
write(a[i,j]:4);
writeln;
end;
end.
Если тебе надо убрать столько функций, попробуй использовать цикл
for или while; а вместо * нужно вставить вроде бы кординаты, точно не помню.