Напишите программу, которая строит "квадрат" из знаков '*' заданного размера. Используйте процедуру.
На языке pascal.
Пожалуйста, очень надо!!!
На языке pascal.
Пожалуйста, очень надо!!!
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.