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.
Информационные системы создаются под конкретную задачу. Пример для простой задачи печати визиток для небольшой фирмы в несколько сот человек. Работа с базой возможна как двойным щелчком по выделенной строке, так и кнопкой перехода. Защита без пароля. Защиту в рабочем режиме не снимайте, чтобы не повредить формулы связи с базой.
Var a:string;
begin
readln(a);
if length(a)=1 then a:=a+' ';
if a[2]<>' ' then delete(a,2,1) else writeln('Такого нет');
readln;
<span>end.</span>
Program plochad;var a,c:real;beginwriteln ('Введи длину стороны a=');readln (a);if a < 0 then writeln ('Число не может быть отрицательным! Введите другое число.');writeln ('Введи длину основания c=');readln (c);if c < 0 then writeln ('Число не может быть отрицательным! Введите другое число.');c:= a*c/2;if c<0 then write ('Невозможно решить') else writeln ('S=',c);end.