?38 Какой из нижеприведенных кодов будет работать без ошибки?
- B)Var x,k,sym:real;begin k:=StrToInt(Edit1.Text);x:=StrToFloat(Edit1.Text);sym:=x+k;Edit3.Text:=FloatToStr(Edit3.Text);end;
- C)Var x,k,sym:real;begin k:=StrToFloat(Edit1.Text);x:=StrToFloat(Edit1.Text);sym:=x+k;Edit3.Text:=IntToStr(Edit3.Text);end;
- E)Var x,k,sym:Int64;begin k:=StrToFloat(Edit1.Text);x:=StrToFloat(Edit1.Text);sym:=x;Edit3.Text:=FloatToStr(Edit3.Text);end;
- D)Var x,k,sym:real;begin k:=StrToFloat(Edit1.Text);x:=IntToFloat(Edit1.Text);sym:=x+k;Edit3.Text:=FloatToStr(Edit3.Text);end;
- A.)Var x,k,sym:real;begin k:=StrToFloat(Edit1.Text);x:=StrToFloat(Edit1.Text);sym:=x+k;Edit3.Text:=FloatToStr(Edit3.Text);end;
К сожалению, у нас пока нет статистики ответов на данный вопрос,
но мы работаем над этим.