Untitled
program DrawNumber; var digit, width, height: integer; procedure DrawDigitOne(height, width: integer); var i, j: integer; begin for i := 1 to height do begin for j := 1 to width do begin if (j = (width + 1) div 2) or (i = height) then write('*') else write(' '); end; writeln; end; end; procedure DrawDigitTwo(height, width: integer); var i, j: integer; begin for i := 1 to height do begin for j := 1 to width do begin if (j = 1) or (j = width) or ((i = 1) and (j <= width div 2)) or ((i = height) and (j >= width div 2 + 1)) or (i = (height + 1) div 2) then write('*') else write(' '); end; writeln; end; end; // Добавьте аналогичные процедуры для других цифр begin writeln('Введите желаемую цифру (от 1 до 9): '); readln(digit); writeln('Введите ширину: '); readln(width); writeln('Введите высоту: '); readln(height); case digit of 1: DrawDigitOne(height, width); 2: DrawDigitTwo(height, width); // Добавьте аналогичные case для других цифр else writeln('Неверный ввод. Введите число от 1 до 9.'); end; end.
Leave a Comment