Как-то так... )))
Смотри картинки...
Первая - вид формул, вторая - значения...
var
i, n, y: integer;
begin
write ('x= ');
readln (x);
if (x>0) then
y:=sin(2*x)
else
y:=1-(2*(sin(2*x)));
write(y);
end;
По вертикали:
1. Информация
По горизонтали:
1. Редактирование
2. Фрагмент
<span>3. Шрифт </span>
<span>4. Форматирование </span>
<span>5. Процессор</span>
<span>6. Документ </span>
<span>8. Центрирвание </span>
<span>9. Копирование</span>