// PascalABC.Net
var vowel: set of char = ['а', 'у', 'о', 'ы', 'и', 'э', 'я', 'ю', 'ё', 'е'];
s, substr: string;
begin
s := 'кот в сапогах';
var words := s.Split(' ');
for var i := 0 to words.length - 1 do
begin
for var j := 1 to words[i].Length do
if words[i][j] in vowel then
begin
substr := Copy(words[i], 1, j-1);
Delete(words[i], 1, j-1);
words[i] += substr;
break;
end;
words[i] += 'циус';
end;
writeln(words.JoinIntoString(' '));
end.
13620 байт
Объяснение:
Считаем количество символов: "собака, " содержит 8 символов. Значит объем текста до замены: 681*8 символов.
После замены количество символов в каждом слове увеличилось на 2: вместо 2-х символов a стало 4 символа _, т.е на 4 - 2 = 2 символа больше. Всего слов 681, следовательно объем текста увеличился на 2*681.
(681*8 + 681*2)*16 = 6810*16 (бит) = 6810*2*8 = 6810*2 (байт) = 13620 байт
P.S. Можно рассуждать проще: было "собака, ", стало "соб__к__, ", т.е. 10 символов в слове. Скопировано 680 раз, т.е 10 + 680*10 = 6810.
Информационный объем равен 6810*16 бит = 13620 байт
{$APPTYPE CONSOLE}
uses SysUtils;
var A:array of array of Integer;
B:array of Integer; i,j,N,M,t:Integer;
begin { TODO -oUser -cConsole Main : Insert code here } t:=0;
while not (N in [1..100]) do begin write('N = ');
readln(N);
end;
while not (M in [1..100]) do begin write('M = ');
readln(M);
end; SetLength(A,N,M);
Writeln('Matrix is - ');
for i:=0 to N-1 do begin for j:=0 to M-1 do begin A[i,j]:=Random(30)-10;
write(A[i,j],' ');
if A[i,j]>=0 then begin SetLength(B,t+1);
B[t]:=A[i,j]; Inc(t);
end;
end;
Writeln;
end; Write('Massive B = ');
for i:=0 to t-1 do write(B[i],' ');
A:=nil;
B:=nil;
readln;
end.