Вpascal abc написать имя " рома или роман " ( 7 класс ) огромное - мне нужен обычный текст с выводом моего имени на экран. пример работы ( имя влад ) uses graphabc; begin moveto(100,100); lineto(100,300); lineto(150,300); arc(150,250,50,270,90); line(100,200,150,200); arc(130,150,50,270,90); line(100,100,100,130); line(100,100,130,100); moveto(200,300); lineto(250,100); lineto(300,300); moveto(320,300); lineto(370,100); lineto(420,300); line(334,250,409,250); moveto(430,300); lineto(430,250); lineto(580,250); lineto(580,300); moveto(460,250); lineto(460,100); lineto(540,100); lineto(540,250); end.

120

296

Посмотреть ответы 3

Ответы на вопрос:

firudinnerimano

Информатика

4,6(97 оценок)

Uses graphabc; beginmoveto(100,100); lineto(100,300); line(100,200,150,200); arc(130,150,50,90,-90); line(100,100,100,130); line(100,100,130,100); moveto(210,280); arc(250,150,50,150,30); lineto(210,120); arc(250,250,50,-150,-30); moveto(290,280); lineto(290,120); moveto(320,300); lineto(370,100); lineto(420,300); moveto(420,300); lineto(470,100); lineto(520,300); moveto(520,300); lineto(570,100); lineto(620,300); line(534,250,609,250); end.

habman

Информатика

4,6(92 оценок)

Uses graphabc; begin moveto(100,100); lineto(100,300); line(100,200,130,200); arc(130,150,50,270,450); line(100,100,130,100); arc(200,255,50,270,630); moveto(275,300); lineto(275,210); lineto(310,265); lineto(345,210); lineto(345,300); moveto(370,300); lineto(405,210); lineto(440,300); moveto(425,265); lineto(385,265); moveto(460,300); lineto(460,210); moveto(530,300); lineto(530,210); moveto(460,265); lineto(530,265); end.

Magster

Информатика

4,5(60 оценок)

Var a: integer; begin write('введите число месяца '); readln(a); if (a mod 7 = 1) then write('вт'); if (a mod 7 = 2) then write('ср'); if (a mod 7 = 3) then write('чт'); if (a mod 7 = 4) then write('пт'); if (a mod 7 = 5) then write('сб'); if (a mod 7 = 6) then write('вс'); if (a mod 7 = 0) then write('пн'); end.