Формула указана не ясно в задании, я указал в ответе так как оно более менее смотрится понятно, но вам стоит уточнить. Что до алгоритма, то он выглядит вот таким вот образом. Внимание, первый член данного ряда считается за 0, вам стоит так же уточнить у преподавателя, в задании этого явно не указано, но зачастую такое значение традиционно.
Ошибки в вашем алгоритме:
1. У вас условие k < 0, это значит, что если будет введено k = 0, то алгоритм отработает, но 0 членов быть не может, это не имеет смысла.
2. Цикл у вас выводит значение n-го члена после каждой итерации, а не единожды.
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "спасибо" (:
Program n1;
var n,m,p,k: longint;
begin
write('введите n: ');
readln(n);
m:=n;
k:=0;
while m<>0 do begin
p:=m mod 10;
K:=K+1;
m:=m div 10;
end;
writeln('кол-во цифр: ',K);
end.
<span>вот первые два, в файлах ниже!, четертое пока не знаю.</span>
100*100* 4 bit (именно столько бит кодируют 16 оттенков серого) = 40000 бит
Условие можно записать так:
begin
var d : real;
var N1: real;
var N2: real;
N1 := 0;
N2 := 0;
while (N1 < N2) or (N1 <= 0) or (N2 <= 0) or (N2 / N1 = 1) do begin
writeln('Введите N1 и N2, N1 > N2: ');
readln(N1);
readln(N2);
end;
d := LogN(1.0 / 3.0, N2 / N1);
writeln('Концентрация снизится минимум через, дней: ', d);
end.