Question

Pascal abc ,помогите нарисовать что-то в нем (Например квадрат ) С помощью цифр

Answer 1

var n,i,j:integer;

begin

 writeln('введите длину стороны квадрата');

 readln(n);

 for i:=1 to n do write(1);

 writeln;

for i:=1 to n-2 do

begin

  write(1);

  for j:=1 to n-2 do

  write(' ');

  write(1);

  writeln;

end;

for i:=1 to n do write(1);

end.

Answer 2

Конечно! Вот пример рисования квадрата с помощью символов и цифр в языке Pascal ABC:

pascalCopy code
program DrawSquare;
var
  i, j: integer;
begin
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
    begin
      if (i = 1) or (i = 5) or (j = 1) or (j = 5) then
        write('*')
      else
        write(' ');
    end;
    writeln;
  end;
  readln;
end.

Этот код нарисует квадрат размером 5x5 символов с использованием звездочек для границы квадрата и пробелов для внутренней части. Вы можете изменить размер квадрата, изменив значение 5 на другое число в циклах for, чтобы создать квадрат другого размера.