Для каждого рисунка Запишите программу для робота

если что-то будет не так - напиши, испралю. у меня простог нет возможности проверить, выполняется  

                                                                           

program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.

 

 

так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))

 

 

A. решение на калькуляторе 1. находим общее количество пикселей n = 1024×768 = 786432 2. находим количество бит, необходимое для отображения цвета одного пикселя k=㏒₂64 = 6 (или просто вспоминаем, что 64=2⁶) 3. определяем объем информации в битах i = n×k = 786432×6 = 4718592 бит 4. переводим в более крупные единицы - в байты: 1 байт=8 бит; 4718592 бит/8 = 589824 байт - в кбайты: 1 кбайт=1024 байта; 589824 байт/1024 = 576 кбайт - в мбайты: 1 мбайт=1024 кбайта;   576 кбайт/1024 = 0.5625 мбайт. б. решение "в степенях двойки" 1. находим общее количество пикселей n = 1024×768 = 2¹⁰×2⁹×1.5 = 2¹⁹×1.5 2. находим количество бит, необходимое для отображения цвета одного пикселя k=㏒₂64 = 6 (или просто вспоминаем, что 64=2⁶) 3. определяем объем информации в битах i = n×k = 2¹⁹×1.5×6 = 2¹⁹×9 бит 4. переводим в более крупные единицы - в байты: 1 байт=2³ бит; 2¹⁹×9 бит/2³ = 2¹⁶×9 байт - в кбайты: 1 кбайт=2¹⁰ байт;   2¹⁶×9 байт/2¹⁰ = 2⁶×9 кбайт = 64×9 = 576 кбайт - в мбайты: 1 мбайт=2¹⁰ кбайт; 2⁶×9 кбайт/2¹⁰ = 2⁻⁴×9 мбайт = 9/16 мбайт = 0.5625 мбайт.