Скласти програму для обчислення заданого виразу. Результат виводити на екран у такому форматі з 3 знаками після крапки.
155
249
Ответы на вопрос:
Работа не моя: program raketa; uses graph; var gd,gm: integer; begin detectgraph (gd,gm); initgraph (gd,gm,'c: \tp7 '); line (300,60,240,120); line (240,120,240,360); line (360,120,360,360); line (240,360,360,360); line (300,60,360,120); line (240,210,210,240); line (210,240,240,240); line (360,210,390,240); line (390,240,360,240); circle (300,150,15); circle (300,210,15); circle (300,270,15); bar (270,300,240,360); line (240,360,180,450); line (180,450,420,450); line (420,450,360,360); line (330,450,330,370); line (300,450,300,365); line (270,450,270,370); line (240,330,180,330); line (180,330,90,450); line (172,330,80,445); line (300,60,300,30); readln end.
Популярно: Информатика
-
evgen22region18.12.2022 23:51
-
LizaRey15.09.2022 05:35
-
klikedfrite01.05.2022 12:11
-
суперкот1421.06.2023 00:04
-
alvd198626.04.2020 11:56
-
нагамрпапприии23.04.2023 12:04
-
Deniska777118.09.2020 06:43
-
Ender22212.04.2022 17:08
-
rederemin200608.07.2022 10:51
-
laswsc1123.11.2021 02:22