semsmith » 22 сен 2013, 20:58
var
t1, t2: Integer;
s: Real;
begin
t1 := Random(8) + 2; { 2...9 }
repeat
t2 := Random(8) + 3; { 2...10 }
until (t1 < t2) ;
s:= 10*(t2-t1)-(5/4)*(t2*t2-t1*t1)
К сожалению в сценарии эта конструкция, почему-то выдает неверный ответ????
Замена t2*t2 на sqr(t2) приводит к error.
Заранее спасибо за ответ
var
t1, t2: Integer;
s: Real;
begin
t1 := Random(8) + 2; { 2...9 }
repeat
t2 := Random(8) + 3; { 2...10 }
until (t1 < t2) ;
s:= 10*(t2-t1)-(5/4)*(t2*t2-t1*t1)
К сожалению в сценарии эта конструкция, почему-то выдает неверный ответ????
Замена t2*t2 на sqr(t2) приводит к error.
Заранее спасибо за ответ