Такая проблемка:
Написал алгоритм, вне зависимости от того какое число я введу для переменной n0, результат переменной t - Всегда 56.98.
Задача
Через сколько дней количество атомов изотопа уменьшится в 100 раз, если период полураспада(Уменьшения количества атомов вдвое) составляет 8,14 дня... Кол атомов вводится пользователем
t-дни, nO=начальное количество атомов, n - то что будет получатся... Помогите пожалуста)
program atom;
var n0, t, n, k: real;
begin
t:=0; k:=8.14;
Writeln;
Readln(n0);
n:=n0;
while n0/n<=100 do
begin
n:=n/2;
t:=t+k;
end;
Writeln(t);
End. |
