Вот (не забудь потом поблагодарить)
На картинке: стакан с напитком и эскимо на палочке с глазурью
Ответ:4 а
Объяснение:от бита к килобайту
Ответ:
Float a, skv, skb v;
Edit1.Text := StrtoInt(a) ;
skv := a * a;
skb := a * a *6;
v := a * a * a;
Label1.Caption := Площадь квадрата = InttoStr(skv) ;
Label2.Caption := Площадь Куба = InttoStr(skb) ;
Label2.Caption := Объём куба = InttoStr(v) ;
Объяснение: