<span>PROGRAM PR17;
VAR
I,N:INTEGER;
S,SR,A:REAL:
BEGIN
WRITE(‘ Введите N’);
READLN(N);
S:=0;
FOR I:=1 TO N DO
BEGIN
WRITE(‘ Введите ‘,I,’ число’);
READLN(A);
S:=S+A:
END;
SR:=S/N;
43
WRITELN(‘Ответ: SR = ’,SR:8:3);
END.</span>
10 пт = 3,5мм
Интервал(полуторный) = 3,5*1,2(120%, это одинарный)*1,5(150%, это рассчёт до полуторного)=6,3 мм
Строка с полуторным интервалом = 3,5+6,3 = 9,8 мм = 0,98 см
х= 6 / 0,98 = 6,12 см
Ответ, в фрагменте 6 строк, т.к. число строк должно являться целым числом.
Если понять принцип формирования числа в восьмеричной системе счисления, то станет ясно - после каждого перехода от семерки к новому числу, прибавляется одна цифра. Если 17 перевести в двоичную, получим 1111. Значит, следующее число даст нам 10000. В восьмеричной системе следующим будет 20
Program srof;
var a,b:integer;
begin
writeln('введите последовательность чисел закончив её введением 0');
readln(a);
b:=0;
c:=0;
while (a<>0) do
begin
if a mod 2 <>0 then
b:=b+a;
readln(a);
end;
writeln(b);
<span> end.</span>
Program mathlover12;
const
n = 6; {Количество элементов массива}
var
a:array[1..n] of integer;
s:string;
i,min,max: integer;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{вводим элементы массива}
writeln; writeln('Введите ',n,' чисел:');
for i:=1 to n do read(a[i]);
{Ищем min и max}
min:=a[1];
max:=a[1];
for i:=2 to n do
begin
if min>a[i] then min:=a[i];
if max<a[i] then max:=a[i];
end;
{Выводим произведение min и max}
writeln; writeln;
writeln('Произведение min и max равнo ',min*max);
end.