27=1*2(в четвертой степени)+0*2(в третей степени)+1*2(во второй степени)+1*2(в первой степени)+1*2(в нулевой степени)=10111
14=1*2(в третей степени)+1*2(во второй степени)+0*2(в первой степени)+0*2(в нулевой степени)=1100
Да, нужно. Любой принтер требует отключения при заправке чернил
program crash;
var n, k: integer;
r: real;
begin
write('n = ');
readln(n);
k := 0;
r := 0;
while n > 0 do
begin
k := k + 1;
r := r + (n mod 10) / (k * k);
n := n div 10
end;
writeln('r = ', r:0:14);
readln
end.
Задача 1 Программа проверена для первых четырех элементов (=16)