Program Pr1;
uses crt;
var stroka,tmp:string;
i:integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i]=' ' then tmp:=copy(stroka,1,i-1);
writeln(tmp);
end.
Арктотис- <span> в переводе обозначает "гром-ягода", так часто и называют это ... знают его под названием «волчья ягода» и считают плоды смертельно опасными ... на бруснику и обитающих в тундрах, в Средней России выращивают один ... побережье, скалы и каменные осыпи, тундры. Играет значительную роль в формировании ... кустарничкового яруса тундр и редколесий. Охраняется в заповедниках ... на концах ветвей прошлого года.Ягоды мучнистые, вначале красные, затем черно ... яркими пятнами. Почки, цветы и ягоды этого растения служат любимым кормом ...</span>
Ошибка в задании недопустимых исходных данных. Аргументы функций ln() и sqrt() не должны быть отрицательными.
Когда сравниваемые величины образуют в сумме 100%, тогда удобнее применять круговую диаграмму. Ведь круг в сумме и показыает 100%, а уже потом мы его делим (как одно целое) на соответствующие части.