Составить трассировочные таблицы (исполнить алгоритм) для s = 745 и s = 1864.

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.

текст: happy new year, dear содержит 30 символов. при кодировании текста с acsii каждый символ кодиреутся 8 битами или 1 байтом, следовательно

30 символов = 30 байт или  30 * 8 = 240 бит

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.

а:       где хотите, там и бранитесь, а на табаке помиритесь.

б:       умел ошибиться, умей и поправиться.

в:       рожь кормит сплошь, а пшеничка по выбору.

г:       всякая птица свое гнездо любит.

д:       широка дорожка ерошке.

е:       и мед горчит, если его много.

ж:     ржавое железо не блестит.

з:       если мало в привозе, то много в запросе.

и:       истина выдерживает проверку опытом.

к:       вода размывает канал в слабом месте.

л:       глупа та птица, которой гнездо свое не мило.

м:     на ходу подметки режет.

н:       где хвост — начало, там голова — мочало.

о:       всякой молодец на свой образец.

п:       закон — что паутина: шмель проскочит, а муха увязнет.

р:       дело сделал на копейку, а раструбил на всю деревню.

с:     долгие сборы на короткий век.

т:     юность — время золотое: ест, и пьет, и спит в покое.

у:     шито-крыто, а узелок-то тут.

ф:   два фонаря на пустой каланче.

х:     как не хитри, а правды не перехитришь.

ц:     цветет старость сединою.

ч:     к мягкому воску печать, к молодому – ученье.

ш:   шумит дубровушка к погодушке.

щ:   сигарета — щелчок по легким, бутылка пива — удар по почкам,           рюмка водки — убийство печени, кусок сала — прессинг желудка.

э:     каково эхо, такова и конюшня.

ю:   верный вассал двум сюзеренам не служит.

я:     откладывать в долгий ящик.