danulpopov
Var i,j, n:integer; begin Write('Введите размер стороны квадрата -> '); Readln(n); for i:= 1 to n do begin for j:= 1 to n do Write('*'); Writeln; end; end.
2 votes Thanks 1
elenalitvinenk1
В этой программе получается пустой квадрат, а мне нужно, чтобы был заполнен звездочками.
Answers & Comments
i,j, n:integer;
begin
Write('Введите размер стороны квадрата -> ');
Readln(n);
for i:= 1 to n do
begin
for j:= 1 to n do
Write('*');
Writeln;
end;
end.