Lazarus procedure tform1.button1click(sender: tobject); var d, e, f, g, cg, cd, ce, cf: real; begin cd: =strtofloat(edit1.text); ce: =strtofloat(edit2.text); cf: =strtofloat(edit3.text); g: =strtofloat(edit4.text); d: =round(g/cd*100)/100; e: =round(g/ce*100)/100; f: =round(g/cf*100)/100; edit5.text : =floattostr(d); edit6.text : =floattostr(e); edit7.text : =floattostr(f); end; : мати дала синові певну кількість грошей і попросила купити 3 кг цукру та 2 кг борошна. на гроші що залишилися, мати дозволила синові купити цукерок. скільки грамів цукерок купить син? з того коду зробити что я написав в лазарус .
154
295
Ответы на вопрос:
Популярно: Информатика
-
идеал4а26.04.2022 14:35
-
azilhan119.11.2020 12:11
-
frolovbogdan12207.09.2022 13:56
-
nestann07.07.2021 19:24
-
алиночка20621.05.2021 19:47
-
beliaeva20121.12.2021 10:23
-
makssabarov01.03.2020 18:44
-
egor57020.10.2021 19:59
-
SevenDays710.11.2020 13:36
-
Арианна190225.06.2021 08:01