Вывести первое число, если оно меньше второго, и оба числа, если это не так. ​

обычно 1 символ = 1 байт = 8 бит, если другое не оговаривается в условии следовательно:

14400 * 10 : 8 = 18000 символа

336600 * 10 * 8 = 420750 символа

у текста, мощностью 64 символа (каждый символ несет 6 бит информации) в 1,2 раза инф. объем больше, чем у текста, мощностью 32 символа (каждый символ несет 5 бит информации).

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.