Есть ответ 👍

Написать программу, которая выводит рисунок на синем фоне "жёлтый большой круг, а внутри зелёный"

153
203
Посмотреть ответы 2

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


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.
pro00losk
4,7(20 оценок)

//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

Популярно: Информатика