Question

Salut. Ajutați-mă cu o problemă în pascal cu subprograme, vaa rog mult

Answer 1

Program xx;

var s:string;i,g:integer;
begin
readln(s);
for i:=0 to 5 do
begin
writeln;
for g:=0 to i do
write(s);
end;
end.


Acesta este pentru (a)
Deja modifici for-urile pentru alte exemple.

pentru b:


Program xx;

var s:string;i,g:integer;
begin
readln(s);
for i:=5 downto 0 do
begin
writeln;
for g:=0 to i do
write(s);end;end.