Witajcie,potrzebuje napisać program w pascalu - dokładnie tak:
Póki co udało mi się napisać takie coś-
lecz niestety gdy podaje n np.6 to wypisuje 12 odjać ten 1 rząd czyli 11.
Jak zrobić aby dla n np.6 wypisywało 6 rzędów?
program L4Z1A;
var
i,j,n:integer;
czy:string;
begin
repeat
writeln ('Podaj liczbe z zakresu od 1 do 15.');
readln (n);
if (n<1) or (n>15)then
repeat
writeln ('Podales liczbe spoza zakresu, podaj jeszcze raz.');
readln (n);
until (n>=0) and (n<=16);
for i:=1 to n do
begin
for j:=1 to i do
write ('*');
writeln;
end;
for i:=n-1 downto 1 do
begin
for j:=1 to i do
write ('*');
writeln;
end;
writeln ('Czy chcesz powtorzyc ?');
writeln ('Jezeli tak to wcisnij Enter, jezeli nie to wpisz nie.');
readln (czy);
until czy='nie';
readln;
end.