Предмет: Информатика,
автор: 3001kris3001
Напишите программу, которая строит "квадрат" из знаков '*' заданного размера. Используйте процедуру.
На языке pascal.
Пожалуйста, очень надо!!!
Ответы
Автор ответа:
0
Цикл в цикле:
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.
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.
Похожие вопросы
Предмет: Алгебра,
автор: pavelcsenia12345
Предмет: Русский язык,
автор: zhanbolatnauryzbaev
Предмет: Английский язык,
автор: whitegreenrose
Предмет: Химия,
автор: gvtdujcdtf
Предмет: Математика,
автор: lanatkach92