Pascal code required for the following program.
10 1112 13 14 15 Show transcribed image text 10 1112 13 14 15
Answer
program Pattern;
var r,c,k:integer;
begin
k:=1;
for r:=1 to 5 do
begin
for c:=5 downto r do
begin
write(k,’ ‘);
k:=k+1;
end;
writeln(”);
end;
end.
0.01 sec, memory peak: 3 Mb, absolute service time: 0,28 sec 1 2 3 4 5 6 7 89 10 11 12 13
OR
OR