Составьте программу в PascalABC, которая печатает в первой строке два знака ‘& &’ через один пробел, во второй – через два пробела ‘& &’, в третьей — ‘& &’ через три пробела, …, в строке с номером 9 — & (через 9 пробелов) & . Печать строки оформить через процедуру. Число строк вводить с клавиатуры.

Вопрос школьника по предмету Информатика

Составьте программу в PascalABC, которая печатает в первой строке два знака ‘& &’ через один пробел, во второй – через два пробела ‘& &’, в третьей — ‘& &’ через три пробела, …, в строке с номером 9 — & (через 9 пробелов) & .

Печать строки оформить через процедуру. Число строк вводить с клавиатуры.

Ответ учителя по предмету Информатика

// PascalABC.NET

procedure MadPrt(n: integer) := Writeln(‘&’ + n * ‘ ‘ + ‘&’);

begin

 var n := ReadInteger(‘Сколько нужно строк?’);

 for var i := 1 to n do

   MadPrt(i)

end.