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)

program n1;   const n=10;   var  mas: array[1..n] of integer;   i: integer;   max,min,sum: integer;   ar: real;   begin    for i: =1 to n dobegin  mas[i]: = random (20)-10;   write(mas[i],' ');   writeln  end;   max: =1;     for i: =2 to n do    if mas[i]> mas[max] then    max: =i;     writeln;     writeln('максимаьное значение a[',max,']= ',mas[max]);       min: =1;   for i: =2 to n do    if mas[i]< mas[min] then    min: =i;     writeln;     writeln(минимальное значение a[',min,']= ',mas[min]);       for i: =1 to n do    sum: =sum+mas[i];       ar: =sum/n;     writeln;     writeln('среднее арифметическое =  ',ar);     end.{немного нерационально но работает=)}

v=331+ 0,6*t

в зимний день- v=331+ 0.6*(-35)=310 м/с

в летний день-   v=331+ 0.6*30=349 м/с