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.
найдем размер изображения:
1) всего 16 цветов., значит на 1 пиксель приходится 4 бита памяти
2)размер изображения=800*600*4=1 920 000 бита
теперь найдем <em>Сколько секунд потребуется модему</em><span>, </span><em>передающему сообщения со скоростью 32000</em><span> бит/с это изображение:</span>
<span>1) 1 920 000 бита / <em>32000</em> бит/с = 60 с</span>
<span>Ответ: 60с</span>
Короче как-то так, будут вопросы пиши в ЛС)
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var s:=ReadlnString('>');
s:=s.Replace(',',', '); Writeln(s);
Writeln(NewLine,'Список слов:');
s.ToWords.OrderBy(x->x).Println(NewLine);
end.
Тестовый пример
> Это мой,плохо форматированный,но зато мой текст!
Это мой, плохо форматированный, но зато мой текст!
<u><em>Список слов:</em></u>
зато
мой
мой,
но
плохо
текст!
форматированный,
Это