10 символов = 100\% информации.
5-й символ = 10\% информации (это же 1 символ из ста).
var a,b,c,y:Real;
Begin
Read(a,b,c);
y:=SQRT(a+ABS(b)+(15+c)*(15+c));
Write(y)
End.
var
inStr, outStr : string;
i : integer;
begin
outStr := '';
ReadLn(inStr);
for i := 1 to Length(inStr) do
<span> if </span>inStr[i] <> '+' then
outStr := outStr + inStr[i] + inStr[i];
WriteLn(outStr);
end.
246 во 2
посмотри в интернете там выйдет