Это пользователь... тыдым с:
Program untitled;
var t,t2:text;
i,a:integer;
m:array [1..50] of integer;
begin
randomize;
assign(t,'output.txt');
assign(t2,'output2.txt');
rewrite(t);
for i:=1 to 50 do begin
m[i]:=random(50);
writeln(t,m[i]);
end;
reset(t);
rewrite(t2);
for i:=1 to 50 do begin
readln(t,a);
if a mod 2=0 then
writeln(t2,a);
end;
close(t);
close(t2);
<span>end.</span>
Ответ:
var a:array [1..100] of integer;
n,i,k,j:integer;
begin
write('Введите количество чисел: '); readln(n);
for i:=1 to n do begin
write('от',i,'до: '); readln(a[i]);
end;
k:=a[1];
for i:=2 to n do if a[i]<k then k:=a[i];
for i:=1 to n do if a[i]=k then j:=j+1;
writeln('наибольшая последовательность минимума = ',j);
end.
Х - символов в сообщении
8х бит (было) сообщение
16х (бит) стало
16х-8х=184
8х=184
х=23
Ответ:23 символа в сообщении