Алисе нравится слово "nineteen". у нее есть строка s, и она хочет, чтобы строка содержала как можно больше таких слов. для этого она может переставлять местами буквы в строке. например, если есть строка "xiineteenppnnnewtnee", то алиса может получить из нее строку "xnineteenppnineteenw", содержащую два таких слова (словоупотребления выделены более формально, слово "nineteen" содержится в строке столько раз, сколько раз можно прочесть его, начиная от некоторой буквы строки. при прочтении пропускать буквы запрещается. алисе определить: какое максимальное количество слов "nineteen" она может получить в своей строке? входные данные первая строка содержит непустую строку s, состоящую только из строчных букв алфавита. длина строки s не превосходит 100. выходные данные выведите единственное целое число — максимальное количество слов "nineteen", которое алиса может получить в своей строке. примеры входные данные nniinneettnn выходные данные 2 входные данные выходные данные 2 входные данные nineteenineteen выходные данные 2

var

i, nn,ii,ee,tt:integer;

s: string;

function min(a,b:integer):integer;

begin

if a<b then min:=a else min:=b;

end;

begin

readln(s);

for i:=1 to length(s) do

 if (s[i]='n') then inc(nn) else

 if (s[i]='i') then inc(ii) else

 if (s[i]='e') then inc(ee) else

 if (s[i]='t') then inc(tt);

nn:=nn div 3;

ee:=ee div 3;

writeln(min(nn, min(ii, min(ee, tt;

end.

Давайте кое-что проясним.

Если факториал 20 ещё вмещается в возвращаемый тип long, то факториал 40 уже не влезет.Вы делаете лишний вызов функции Factorial только из-за того, что не делаете проверку, является ли n равным 1. Это никак не помешает работе программы, но лучше о таких вещах заботиться ещё на уровне составления алгоритма.Так как long является типом int64, то n1 и n2 - целочисленные переменные.Первый пункт

мы можем решить только путём изменения типов переменных n1 и n2 на float или double.

Второй пункт

решается добавлением в условие проверки на равенство единице:

if (n == 0 || n == 1)

А также лучше позаботиться о вводе отрицательных чисел. Но я не стану отнимать хлеб у преподавателя и у Вас в том числе, поэтому думайте сами, как решить эту и другие проблемы :)

Третий пункт

стоит показать на примере:

int i = 10; int j = 20; Console.WriteLine(i / j); // output: 0

Почему так происходит? Мы делим 10 на 20 и хотели бы получить 0.5, но тут требуется посмотреть на тип. Он априори не может хранить в себе числа после запятой. Это целочисленный тип. То есть после такого деления отбрасывается .5 и ответ получается равен нулю.

Более правильный код

(скриншот)

Удачи! Надеюсь

Какой же вред здоровью наносит компьютер и как этот вред минимизировать? Как сохранить красоту и здоровье человеку, просиживающему днями и ночами за монитором, как совместить здоровый образ жизни и работу за компьютером?

Основные вредные факторы, влияющие на состояние здоровья людей, работающих за компьютером:

сидячее положение в течение длительного времени;воздействие электромагнитного излучения монитора;утомление глаз, нагрузка на зрение;перегрузка суставов кистей;стресс при потере информации.

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

Электромагнитное излучение.
Современные мониторы стали безопаснее для здоровья, но еще не полностью. А если на Вашем столе совсем старенький монитор, лучше держитесь от него подальше.

Воздействие на зрение.
Глаза регистрируют самую мелкую вибрацию текста или картинки, а тем более мерцание экрана. Перегрузка глаз приводит к потере остроты зрения. Плохо сказываются на зрении неудачный подбор цвета, шрифтов, компоновки окон в используемых Вами программах, неправильное расположение экрана.

Перегрузка суставов кистей рук.
Нервные окончания подушечек пальцев как бы разбиваются от постоянных ударов по клавишам, возникают онемение, слабость, в подушечках бегают мурашки. Это может привести к повреждению суставного и связочного аппарата кисти, а в дальнейшем заболевания кисти могут стать хроническими.

Стресс при потере информации.
Далеко не все пользователи регулярно делают резервные копии своей информации. А ведь и вирусы не дремлют, и винчестеры лучших фирм, бывает, ломаются, и самый опытный программист может иногда нажать не ту кнопку... В результате такого стресса случались и инфаркты.

Пыль и грязь: аллергия и кишечные инфекции.
Пыли и грязи в компьютере и вокруг него со временем скапливается немало, причем убрать их зачастую бывает весьма сложно. А где грязь, там и всяческие микробы, бактерии и грибки, где пыль, там и пылевые клещи. Все это может спровоцировать самые разные заболевания - от аллергии до "болезней грязных рук".

Компьютер и беременность.
Опасны ли компьютеры для беременных? Безусловно, некоторое негативное влияние на протекание беременности и развитие плода компьютер оказать может, но насколько сильное? Единого мнения на этот счет у врачей еще не сложилось...

Влияние компьютера на психику.
Тема, на наш взгляд, очень дискуссионная. Игромания, интернет-зависимость - насколько серьезны эти проблемы? Как сильно влияет компьютер на психическое здоровье людей? Предлагаем вашему вниманию разные точки зрения на эти вопросы.

Работайте на компьютере и будьте здоровы!