Если используется 8-битная кодировка, то для кодирования имени антон необходимо 5*8 бит = 40 бит = 5 байт.
Если используется 16-битная кодировка, то для кодирования необходимо 5*16 = 80 бит = 10 байт.
Тип текста; размер текста; жирный, курсивный, подчёркнутый текст; расположение текста.
Вроде бы легко!
Begin
var a:=ReadInteger('Введите двузначное число :');
var b:=a mod 10 ; var c:= a div 10;
Writeln('Разность =',c-b);
Writeln('Произведение =',c*b);
end.
1)
var a: array [1..40] of integer;
i, s1, s2: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] mod 2 = 1) then
begin
s1 := s1 + a[i];
inc(s2);
end;
end;
writeln(s1 / s2);
<span>end.
2)
var a: array [1..40] of integer;
i, q: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] <= 10) then q := q + a[i];
end;
writeln(q);
<span>end.
3)
var a: array [1..40] of integer;
i, w: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] mod 3 = 0) then w := w + a[i];
end;
writeln(w);
<span>end.</span></span></span>