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)

один, два, три, четыре, пять

12345

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);   i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);

  i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);