Дистанционная подготовка: Превышено максимально время работы!
Превышено максимально время работы!
от Роман Тюпин - Понедельник 16 Март 2015, 20:43
  var n,m:integer;
procedure Stroka;
var k:integer;
begin
k:=0;
while k<n do begin
  write ('*');
  k:=k+1;
  end;
end;
begin
read(n);
m:=0;
while m<n do begin Stroka;
m:=m+1;
writeln;
end;
end.
Программа, создающая квадрат из звездочек.Как еще можно упростить?..