Begin var s:=readlnstring; var gl:='АЕИОУЫЯЁЮЭ'; var m:=s.ToWords; var k:=m.Length; var b:=new integer[k]; for var i:=0 to k-1 do b[i]:=m[i].Where(c->c.ToUpper in gl).Count; Writeln(m[b.IndexMax]) end.
begin var gl:=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я']; var a:=ReadlnString('>').ToWords(' ',',','.'); var b:=ArrFill(a.Length,0); for var i:=0 to a.Length-1 do b[i]:=a[i].Where(x->x in gl).Count; writeln(b.Max); foreach var i in b.IndexesOf(i->i=b.Max) do Println(a[i]); end.
Пример: > Дан текст найти слово,в котором максимальное количество гласных букв 5 максимальное
Данные в таблице практически везде неверные, если свериться с астрономическими справочниками. Ну да не суть важно. Во вложении - файл Microsoft Word-2003 с таблицей.
Смотри, x:=x+y Сам Y у нас тут не меняется, значит менялся только X. отсюда получаем 4=x+27 обычное уравнение. x=4-27=-23. А т.к. Y не менялся, первоначальные значения равны: x=-23, y=27
Нужно, чтобы при всхожести в 95\% выросло ровно 35 тонн. Значит, 35 разделить на 95 и умножить на 100. Ответ по версии калькулятора - 36,84210526315789. Думаю, можно округлить до 36,85 тонн.