Ответы
Ответ дал:
0
Задание #2
Var r, rz, g, gz, fin: integer;
Begin
r := StrToInt(Edit 1. Text) ;
rz := StrToInt(Edit 2. Text) ;
g := StrToInt(Edit 3. Text) ;
gz := StrToInt(Edit 4. Text) ;
fin := ( r * rz) + ( g * gz) ;
Edit 5. Text := IntToStr(fin) ;
End;
Задание #3
Var x, fom: integer;
Begin
x := StrToInt(Edit 1. Text) ;
fom := ((3 * sqr(x)) /sqrt(x + 2)) - 4;
Edit2.text := IntToStr(fom) ;
End;
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад