помогите написать программу в Pascal авс. надо нарисовать мазайку с разноцветными разными фигурами и толщиной. пожалуйста
5-9 класс
|
Это 1 ряд и 1 кубик, остальные аналогично:
program mozaik;
uses graphabc;
var i, a, n, b:integer;
begin
for i:=1 to 10 do
begin
n:=n+100;
b:=b+100;
rectangle(100,0,200,100);
rectangle(100+n,0,200+n,100);
floodfill(150,50,clrandom);
end;
end.
Другие вопросы из категории
на на английском языке.
равна 11111111, а в каждой последующей- значение информации в 2 раза больше, чем в предыдущей? Следует учесть, что при переполнении разрядов бит не теряется, а прибавляется к младшему разряду полученного числа.
времени надо говорить, чтобы заполнить 80% объема памяти диска D? С объяснением, пожалуйста.
Читайте также
вычисления суммы чисел от 6 до 10. Написать программу вычисления n! (факториал числа n), где n- целое неотрицательное число.
Определение факториала:
0!=1, 1!=1, 2!=1*2, 3!=1*2*3, ……,n!=1*2*3*…*(n-1)*n.
Другими словами n!- это произведение n натуральных чисел.
1. Написать программу нахождения произведения n чисел.