Написать программу, которая выводит рисунок на синем фоне "жёлтый большой круг, а внутри зелёный"
153
203
Ответы на вопрос:
Uses graphabc; begin graphabc.floodfill(0, 0, clblue); graphabc.setbrushcolor(clyellow); graphabc.fillcircle(130, 100, 75); graphabc.setbrushcolor(clgreen); graphabc.fillcircle(130, 100, 25); graphabc.setbrushcolor(clwhite); graphabc.textout(10, 200, ' жёлтый большой круг, а внутри зелёный '); end.
//pascal abc.net v3.1 сборка 1172 const n=4; m=4; var ar: array[1..n,1..m] of integer; i,j: integer; begin randomize; writeln('first matrix: '); for i: =1 to n do begin for j: =1 to m do begin ar[i,j]: =random(100); write(ar[i,j]: 4); if ar[i,j] mod 3=2 then inc(ar[i,j]); end; writeln; end; writeln('final matrix: '); for i: =1 to n do begin for j: =1 to m do write(ar[i,j]: 4); writeln; end; end. пример вывода: first matrix: 20 80 1 69 25 77 97 3 32 56 97 23 99 81 12 82 final matrix: 21 81 1 69 25 78 97 3 33 57 97 24 99 81 12 82
Популярно: Информатика
-
ksenya2004215.02.2021 14:29
-
Updatek09.03.2023 12:21
-
даша363320.06.2023 01:48
-
ZaY40nOK27.06.2022 20:24
-
lololololololololool29.06.2020 13:19
-
Neprostone27.04.2022 18:18
-
mockingbird1205.11.2021 23:37
-
alexnatur14.05.2022 14:32
-
mikhailkoltsov27.10.2021 09:02
-
nabludatel0017.04.2020 04:25