Вверх ↑
Ответов: 273
Рейтинг: 29
#1: 2010-12-09 10:46:16 ЛС | профиль | цитата
Погодь погодь - вторая у меня неправильная..
Вот исправленная:
#pas
program baktery;
var
n,k,i,t:integer;
c:real;
begin
i:=0;
t:=0;
write('input K:');
readln(k);
write('input N:');
readln(n);
c:=k;
repeat
i:=i+1;
t:=t+1;
c:=c*0.75;
if t=3 then
begin
t:=0;
c:=c*2;
end;
until i=n;
k:=trunc(c);
writeln (k);
readln;
end.
Отличия: теперь бактерии погибают каждую минуту, как в условии, а не каждые 3(как я прочитал )
карма: 0

0