Регистрация
nikitaviktorov9
22.05.2023 13:51
Информатика
Есть ответ 👍

желательно надо написать как можно больше(передать суть)​

232
498
Посмотреть ответы 1

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

ЮлияСтоянова
ЮлияСтоянова
4,4(29 оценок)
Uses   graphabc; var   i, k: integer;   arr: array [1..6] of color; begin   writeln('сколько кирпичиков? ');   readln(k);   arr[1] : = clpink; arr[2] : = clred; arr[3] : = clgreen;   arr[4] : = clblue; arr[5] : = clyellow; arr[6] : = clorange;   for i : = 0 to k - 1 do   begin     setbrushcolor(arr[random(6) + 1]);     fillrectangle((i mod 16) * 40, (i div 16) * 20, (i mod 16) * 40 + 39, (i div 16) * 20 + 19);     sleep(20);   end; end. стена из кирпичиков - норм? )

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