СРОЧНО!напишите процедуру,которая принимает параметр-натуральное число N и выводит на экран квадрат( ну конечно же заполнен изнутри тоже) из звездочек со стороной N
Answers & Comments
fasalv
Procedure sq(n: integer); var i, j: integer; begin for i := 1 to n do begin for j := 1 to n do write('*'); writeln(); end; end; var n: integer; begin readln(n); sq(n); end.
Answers & Comments
var i, j: integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
write('*');
writeln();
end;
end;
var n: integer;
begin
readln(n);
sq(n);
end.