Предмет:
ИнформатикаАвтор:
lanaa0rnАвтор:
aryanhensonАвтор:
brunohuntАвтор:
stevensАвтор:
annoraАвтор:
erick278var
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.
Автор:
babykinsggm3Добавить свой ответ
Предмет:
ЛитератураАвтор:
ciscoucpqОтветов:
Смотреть
Предмет:
ЛитератураАвтор:
winnieeu52Ответов:
Смотреть
Предмет:
ГеографияАвтор:
buddawarrenОтветов:
Смотреть
Предмет:
Русский языкАвтор:
sugar40Ответов:
Смотреть