Программа:
uses crt,dos;
var x,y:real;
begin
write('x='); readln(x);
y:=5*(x+10)/(2-7);
writeln('y=',y:5:2);
Readkey;
<span>end.
Пример:
x=2
<span>y=-12.00</span></span>
<span>program</span><span>factorial</span><span>;</span>
<span>function</span><span>fact</span><span>(</span><span>n</span><span>:</span><span>integer</span><span>)</span><span>:</span><span>longint</span><span>;</span><span>begin</span><span>if</span><span>(</span><span>n</span><span>=</span><span>0</span><span>)</span><span>then</span><span>fact</span><span>:=</span><span>1</span><span>else</span><span>fact</span><span>:=</span><span>n</span><span>*</span><span>fact</span><span>(</span><span>n</span><span>-</span><span>1</span><span>)</span><span>;</span>
<span>end</span><span>;</span>
<span>var</span><span>n</span><span>:</span><span>integer</span><span>;</span>
<span>begin</span>
<span>for</span><span>n</span><span>:=</span><span>0</span><span>to</span><span>16</span><span>do</span>
<span>writeln</span><span>(</span><span>n</span><span>,</span><span>'! = '</span><span>,</span><span>fact</span><span>(</span><span>n</span><span>))</span><span>;</span><span>end</span><span>.</span>
Вариант 1
Вставка, фигуры, текст. Вставляем текст. Активируем фигуру. Переходим в Формат, жмём Направление текста. Вуаля.
Вариант 2
Создаём таблицу 1×1 . Пишем текст. Активируем эту таблицу. Переходи в Макет, жмём Направление текста. Вуаля. Потом ещё можно в Главной убрать все границы у таблицы, чтобы было прямо один в один как страница.
Вариант 3
Если задача просто распечатать текст по-другому, то можно сделать Разметка, Ориентация, Альбомная.
Var
a: array[1..15] of real;
i: integer;
b, c:real;
Begin
for i:=1 to 15 do
read(a[i]);
for i:= 1 to 15 do
if (((i mod 3)=0) and ((a[i] mod 5)=0) then
Begin
b:=b+a[i];
c:=c+1;
End;
write(b/c);
End.
60*40=2400 байт
место выделяется кластерами, для 1.2 дискеты 512 байт
кластеров для полезной информации на 1,2 дискете (это ещё 5" древность)
2*80*15 - 2*2 -14 =2382
2382*512=1219584
1219584/2400=508,16
получается 508 страниц