38 ∙ 60 = 2280 байт информационный объем одной страницы, 1.44 = 1509949,44 байт, 1509949,44 : 2280 = 662,26, следовательно поместится на дискете 662 страницы
А) последовательность чисел в 3-й степени: 1,8,27,125,216,343,512 и т.д.
б) к каждому числу прибавляется 9 и получается следующее число: 69+9=78+9=87....
69,78,87,96,105,114,123,132 и т.д.
в) 12=11+2^1, 14=12+2^1, 18=14+2^2, след число получаем: 18+2^3=26, 26+2^4=42 и т.д.
г) 10,11,100,111,1000,1111
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Введите натуральное четырехзначное число:');
var p:=1;
loop 4 do begin
p:=p*(n mod 10);
n:=n div 10
end;
Writeln('Произведение цифр числа равно ',p)
end.
<u>Пример</u>
Введите натуральное четырехзначное число: 2895
Произведение цифр числа равно 720
begin
var (a,b,c):=ReadReal3('Введите коэффициенты a b c:');
var d:=Sqrt(b*b-4*a*c);
if d=0 then Writeln('x=',-b/2/a)
else Writeln('x1=',(-b-d)/2/a,', x2=',(-b+d)/2/a)
end.
<u>Пример</u>
Введите коэффициенты a b c: 1 -0.5 -7.5
x1=-2.5, x2=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.