Вопрос школьника по предмету Информатика
Составьте программу в 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.
Похожие вопросы от пользователей