Текст_сказки = replace('сказоч', 'чудес', текст_сказки)
В конце программы пропущен end;
И еще не описан массив Dt
1. 71*35*50*(на "вес" одного символа, которое в задании не указывается)
результат разделить на 1024 получатся Килобиты, еще на 8 Килобайты. Пишите, пожалуйста, полностью
2. 1 байт на символ. 14 символов.
отв: 14 байт
1) 221(8)=145(10)
109(16)=265(10)
т.к. 145<265, то 221(8)<109(16)
2) А23(16)= 2595(10)
1223(8)=659(10)
т. к. 2595>659. то А23(16)> 1223(8)
Var
mj,max,i,j,m,n:integer;
mas:array[1..999,1..999] of integer;
begin
randomize;
readln(m,n);
for i:=1 to m do
for j:=1 to n do
read(mas[i,j]);
for i:=1 to m do
begin
mj:=-maxint;
max:=-maxint;
for j:=1 to n do
if mas[i,j] > max then
begin
mj:=j;
max:=mas[i,j];
end;
writeln('[',i,';',mj,'] = ',max);
end;
end.