Question

Что будет выведено на экране при n=6?

a:=1; b:=1;
For i;=0 To n Do
Begin
For j:=1 To b Do Write(’ *'); WriteLn;
c;=a+b; a;=b; b;=c;
end

Answer 1

Ответ:

*

* *

* * *

* * * * *

* * * * * * * *

* * * * * * * * * * * * *

* * * * * * * * * * * * * * * * * * * * *

Answer 2

For j:=1 To b Do Write(’ *'); WriteLn; - это в PascalABC.NET пишется просто как Writeln(b * ' *');