Procedure astSquare(n: integer);
var i, j: integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
write('*');
writeln();
end;
end;

{
Для теста:
begin
astSquare(4);
end.
Программа выведет 16 звёздочек:
****
****
****
****
}

0 0

4 года назад

.Каких правил следует придерживаться при клавиатурном письме?

rytos [231]

1) Пробелы ставятся после знаков препинания;
2) Знаки препинания ставятся сразу после слова - без пробела;
3) Дефис не обрамляется пробелами например: из-за
4) Тире обязательно обрамляется пробелами, например: Информатика - это...
5) Клавиша Enter нажимается в конце абзаца, а не в конце строки;
6) В тексте везде можно использовать только один пробел подряд;
и т.д.
Есть и еще правила конечно, но это пока все, что я вспомнил...

0 0

4 года назад

Помогите по информатике. СРОЧНО!

NeroPro

Буду делать по одному. Лови!

0 0

4 года назад

Помагите пожалуй 15 б. за ответ по информатике

ovner

1. Диск
2. Камень （наверное）
Дальше незнаю прости

0 0

3 года назад