1. Напишите процедуру, которая будет печатать на экране изображенный символами.

var i, j, k: byte;

begin

for i := 1 to 4 do

for j := 1 to i do

begin

for k := 1 to j do write(k, ' ');

writeln

end;

readln

end.

a = int(input('Сколько раз напечатать изображение?'))

p1 = '     ^^                    '

p2 = '    ()       #       '

p3 = '            #      '

p4 = '              '

p5 = '              '

p6 = '         #          #      '

p7 = '        ==          ==     '

p8 = ''

print(p1*a)

print(p2*a)

print(p3*a)

print(p4*a)

print(p5*a)

print(p6*a)

print(p7*a)

print(p8*a)

var x,y,nod,nok: longint;

begin

read(x,y);

a: =x; b: =y;

while (a> 0) and (b> 0) do

if a> b then a: =a mod b

else b: =b mod a;

nod: =a+b;

nok: =(x div nod)*y;

write(nok);

end;

64 * 64 = 4096

512 * 8 = 4096 бит

4096 : 4096 = 1 бит

n = 2^i

n = 2^1 = 2 цвета

ответ. 2 цвета.