Question

o Напишите программу, которая выводит следующие
рисунки:
помоги пожалуйста​

Answer 1

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

wrileln('*');

writeln('**);

writeln('***');

Answer 2

Ответ:

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.