помагите заранее большое дам клянусь.​

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.

если выполнить для стандартного алфавита с ё, й итд

получится

а-1 б-2 в-3 г-4 д-5 е-6 ё-7 ж-8 з-9 и-10 й-11 к-12 л-13 м-14 н-15 о-16 п-17

р-18 с-19 т-20 у-21 ф-22 х-23 ц-24 ч-25 ш-26 щ-27 ъ-28 ы-29 ь-30 э-31 ю-32 я-33

слово компьютер

к=12 -8=4 (д)

о=16-5=11(й)

м=14+1=15(н)

п=17+8=25(ч)

ь=30-23=7(ё)

ю=32-13=19(с)

тер (не меняем)

дйнчёстер

но я думаю делалось под алфавит без "ё" и "й" возможно в нем получится "винчестер"

зависит от скорости чтения ученика 

пусть будет 160 с/м

время прочтения 30 мин

1. 160*30 = 4 800 1 символ = 1 байт, следовательно ученик получит 4 800 байт информации или 4,6875 кб 2. объем дискеты 3.5" = 1457664 байт, 1/2 дискеты = 728832 байт из п.1 определим скорость: 160 байт в минуту (т.к. 160 символов в минуту по условию). т.о. имеем: при скорость 160 байт в минуту объём данных в 728832 байт будет считан за: 728832/160 = 4555,2 минуты или 75 часов 55 минут и 12 секунд. 

картинка должна быть в папке с программой и быть в формате bmp

usesgraphabc;

varn: string; b: picture; s: integer;

beginwriteln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.