Предмет: Информатика,
автор: snezgok
Напишите программу, которая строит "квадрат" из знаков '*' заданного размера. Используйте процедуру. (Паскаль АВС). Заранее спасибо)
Ответы
Автор ответа:
0
var
n,i,j:longint;
procedure qwer(a:longint;);
begin
for j:=1 to a do write('*');
writeln;
end;
begin
readln(n);
for i:=1 to n do qwer(n);
end.
n,i,j:longint;
procedure qwer(a:longint;);
begin
for j:=1 to a do write('*');
writeln;
end;
begin
readln(n);
for i:=1 to n do qwer(n);
end.
Похожие вопросы
Предмет: Геометрия,
автор: mlnmamadalieva
Предмет: Физика,
автор: Аноним
Предмет: Математика,
автор: nastenkakartashkina
Предмет: Математика,
автор: kotova17