Предмет: Информатика, автор: 3001kris3001

Напишите программу, которая строит "квадрат" из знаков '*' заданного размера. Используйте процедуру.
На языке pascal.
Пожалуйста, очень надо!!!

Ответы

Автор ответа: vladmor
0
Цикл в цикле:

var
  a, i, j: integer;
begin
  write('Сторона квадрата: ');
  readln(a);
  for i := 1 to a do
  begin
    for j := 1 to a do write('*');
    writeln;
  end;
end.

Похожие вопросы
Предмет: Алгебра, автор: pavelcsenia12345
Предмет: Русский язык, автор: zhanbolatnauryzbaev
Предмет: Химия, автор: gvtdujcdtf