Целое число это 1 то есть 0.5+0.5=1 0.55+0.55=1 0.555+0.555=1
Var
y: real;
begin
y := tan(3 * Pi);
y := y * y; {квадрат}
y := y * y; {четвертая степень}
y := (1 - y) / (ln(8) / ln(3));
writeln('y=', y)
end.
это ТЕГИ Они задают форматирование
текста.
<span>OS/2, AmigaOS, Mac OS, Solaris, Linux и UNIX, Windows, </span><span>Novell.</span>