если что-то будет не так - напиши, испралю. у меня простог нет возможности проверить, выполняется
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.
так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))
внешний стиль – наиболее абстрактный и мощный метод. используется для определения стиля отдельно в другом документе. обычно с этого метода определяют стиль всего сайта.
внешняя стилевая спецификация является обычным текстовым файлом, содержащим описание оформления для html-элементов и классов и имеющим расширение css. варианты использования - функции, выполняемые системой, а действующие лица - заинтересованные лица (stakeholders) по отношению к создаваемой системе. такие диаграммы показывают, какие действующие лица инициируют варианты использования. из них также видно, когда действующее лицо получает информацию от варианта использования. направленная от варианта использования к действующему лицу стрелка показывает, что вариант использования предоставляет некоторую информацию, используемую действующим лицом.
он серьезно отличается от скриптов, написанных на языках perl или c - вместо написания программы с большим количеством команд для вывода html, вы пишете html-скрипт с некоторым количеством встроенного кода для выполнения каких-либо действий. код php заключён в специальные начальный и конечный тэги что позволяет вам входить в и выходить из «режима php».
php отличается от других подобных языков, типа клиентского javascript, тем, что код выполняется на сервере. вы можете сконфигурировать ваш web-сервер таким образом, чтобы он обрабатывал все ваши html-файлы с php, и реально пользователь не будет иметь способа определить, что было на самом деле. выбери что тебе нужно
Поделитесь своими знаниями, ответьте на вопрос:
Программа в pascal abc. с клавиатуры вводится предложение. надо определить каких букв больше м или н.
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.