1) a = 0, b = 0
2) идём по строке, если символ 'A', то ++а, т.е. станет а = 3
3) если два символа симметричны относительно центра, то ++b
ALL OUR LIF
EMAG A SI E
симметричных символов нет, поэтому b = 0
<span>4) b > a == false, поэтому D = a*a*a = 27</span>
История болезни не является персональными данными
//PascalABC.Net 3.2
begin
var a:=arrrandom (readinteger('n ='), -15, 15); a.Println;
var b: array of integer;
for var i:=0 to length(a)-1 do if not((a[i]<0) or ((a[i] mod 8)=0)) then begin
setLength (b, length(b)+1);
b[length(b)-1]:=a[i]
end;
b.Print;
end.
Программа на Паскале прилагается.
Пусть есть строчный массив
for i:=1 to n do for k:=1 to length(a) do begin if a[i,k]=' ' then begin u:=u+1;if u=2 then j:=k;if u=3 then y:=k;if u=4 then l:=k;end;if copy(s,j+1,9)='подгорный' then begin if a[i,y+3]=' ' then p:=copy(s,y+1,2) else p:=copy(s,y+1,3);if a[i,l+3]>lingth(a) then t:=copy(s,l+1,3) else t:=copy(s,l+1,2);end;c:=val(p,h,cod);b:=val(p,h,cod);q:=c+b;if e=1 then e:=q;if e>q then e:=q;end;
for i;=1 to n do for i:=1 to k do write(a);
write(' ');
write(' ');
write(e);
наверное так, но я не знаю как файлы открывать
<span />