Домн
6 год назад
Постройте квадрат со стороной 10 из точек,используя оператор for
ОТВЕТЫ
Назарович
Jun 28, 2019
Var i, j: integer;
begin
for i := 1 to 10 do
begin
for j := 1 to 10 do
if not ((j gt; 1) and (j lt; 10) and (i gt; 1) and (i lt; 10)) then
Write(.)
else
write( );
writeln;
end;
end.
begin
for i := 1 to 10 do
begin
for j := 1 to 10 do
if not ((j gt; 1) and (j lt; 10) and (i gt; 1) and (i lt; 10)) then
Write(.)
else
write( );
writeln;
end;
end.
128
Смежные вопросы:
