Регистрация
asadhfdgj
10.06.2020 05:52
Информатика
Есть ответ 👍

Паскаль в центре окна (640х400) нарисовать окружность радиусом 40 и закрасить её красным цветом

239
333
Посмотреть ответы 2

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

1010ВАДИМ
1010ВАДИМ
4,8(60 оценок)
Program circle; uses graphabc; var            x: integer = 640;             y: integer = 400;             r: integer = 40;       begin    setwindowsize(x,y);     setpencolor(clblack);     setpenwidth(3);     drawcircle(x div 2,y div 2, r);     setbrushcolor(clred);     fillcircle(x div 2,y div 2, r) end.     
liliya15nafikova
liliya15nafikova
4,4(2 оценок)
For i : = 0 to 10 do   а[i]: =i; for i : = 0 to 4 do begin   к : = a[t];   a[i] : = a[10 * i] * k;   a[10 * i] : = k; end;

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