Нажмите клавишу Ctrl<span> на клавиатуре и удерживайте ее нажатой</span>
Для кодирования 16ти символов достаточно 4 бита, т.е. половина байта.
Значит 1 байт кодирует 2 символа.
30*1024*2 = всего символов в сообщении. Осталось поделить на 80
var
a, b, c, d, z : integer;
begin
writeln('введите A B C D');
read(a);
read(b);
read(c);
read(d);
z := max(a, max(b+c, d+1));
writeln('z=', z);
end.
var a:array [1..20] of integer;
i:integer;
p:real;
begin
p:=1;
for i:= 1 to 20 do
begin
a[i]:= Random(46)-20;
if i mod 2 = 0 then p:=p*a[i]
end;
writeln('Массив: ',a);
writeln('Произведение элементов с чётными номерами равно: ',p);
end.
program Lyonyshna;
const
Rus = ['А'..'Я', 'а'..'я'];
Lat = ['A',..'Z', 'a'..'z'];
Var f,frus,flat,foth:text;
i: integer;
st,strus,stlat,stoth: string;
begin
Assign(f, 'file1.txt');
Rewrite(f);
write('Введите исходную строку: '); readln(st);
writeln(f,st);
close(f);
strus:='';
stlat:='';
stoth:='';
Reset(f);
Assign(frus, 'russian.txt');
Rewrite(frus);
Assign(flat, 'latin.txt');
Rewrite(flat);
Assign(foth, 'other.txt');
Rewrite(foth);
Readln(f,st);
for i:=1 to length(st) do
if st[i] in rus then strus:=strus+st[i]
else
if st[i] in lat then stlat:=stlat+st[i]
else
stoth:=stoth+st[i];
Writeln(frus,strus);
Writeln(flat,stlat);
Writeln(foth,stoth);
Writeln('Русские символы: ',strus);
Writeln('Латинские символы: ',stlat);
Writeln('Другие символы: ',stoth);
Close(f); Close(frus); Close(flat); Close(foth);
end.