O Напишите программу, которая выводит следующие
рисунки

Если паскаль, можешь юзать

wrileln('*');

writeln('**);

writeln('***');

Program zv;

var i,j:integer;

begin

for i:=1 to 8 do

begin

for j:=1 to i do write('*');

writeln

end;

writeln;

for i:=1 to 8 do

begin

for j:=i to 8 do write('*');

writeln

end;

end.

Объяснение:

Или по отдельности:

1.

Program zv1;

var i,j:integer;

begin

for i:=1 to 8 do

begin

for j:=1 to i do write('*');

writeln

end

end.

2.

Program zv2;

var i,j:integer;

begin

for i:=1 to 8 do

begin

for j:=i to 8 do write('*');

writeln

end

end.