Задача №1
//Pascal
var i,a,s,k:integer;
begin
s:=0;k:=0;
repeat
readln(a);
if a>12 then begin
k:=k+1;
s:=s+a;
end;
until a=0;
if k<>0 then writeln(s/k)
else writeln('Таких чисел нет');
end.
Задача №2
var
n,p: integer;
begin
p:=1;
readln(n);
while n > 0 do
begin
write(' ', n mod 10);
if n mod 10 < 4 then p:=p * (n mod 10);
n := n div 10
end;
if p<>1 then writeln('Произведение цифр числа ', p)
else writeln('Нет решения');
end.
Компилятор -- компилирует программу в байт-код, а интерпретатор -- исполняет ее при помощи программы (интерпретатора). Достоинства компилятора в том, что что бы запустить скомпилированную программу не требуется специальной программы
Вариант 1
Вставка, фигуры, текст. Вставляем текст. Активируем фигуру. Переходим в Формат, жмём Направление текста. Вуаля.
Вариант 2
Создаём таблицу 1×1 . Пишем текст. Активируем эту таблицу. Переходи в Макет, жмём Направление текста. Вуаля. Потом ещё можно в Главной убрать все границы у таблицы, чтобы было прямо один в один как страница.
Вариант 3
Если задача просто распечатать текст по-другому, то можно сделать Разметка, Ориентация, Альбомная.
var i,n,p:integer;
a:array[1..10000] of integer;
begin
p:=1;
readln(n); {Вводится количество элементов массива}
for i:=1 to n do begin readln(a[i]); p:=p*a[i]; end; {Вводится каждый элемент массива и умножается на произведение ранее введённых}
writeln(exp(ln(p)/n)); {Вывод среднего арифметического - корень степени n из произведения всех элементов массива}
end.