HiAsm

Ответов: 273

Рейтинг: 29

#1: 2010-12-09 11:08:01 ЛС | профиль | цитата

угу... походу и в первой ошибка:
надо i:=0; заменить на i:=1;
А то он на день меньше копать будет(раньше сбежит, чем в ответе)...
Вот исправленная

#pas
program prison;
var
i:integer;
l,p:real;
begin
i:=1;
l:=1;
p:=1;
repeat
i:=i+1;
p:=p*0.95;
l:=l+p;
until l>=13;
writeln (i);
readln;
end.

Вроде больше нигде багов не нашел...
ЗЫ даже такие проги приходится отлаживать

карма: 0