помогите пожалуйста ( это паскаль) 30 баллов
Ответы
Ответ:
program z1234;
var i,j,n: integer;
begin
write('n = ');
readln (n);
writeln;
for i:=1 to n do
begin
for j:=1 to n do write(n:3);
writeln
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do write(i+j:3);
writeln
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
if i mod 2 <> 0 then write(i+j:3)
else write(j-i:3);
writeln
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
if j mod 2 <> 0 then write(j:3)
else write(i:3);
writeln
end
end.
Объяснение:
1. Выводим введённое число
2. Выводим сумму номера строки и номера столбца
3. Если строка нечётная - выводим сумму номера строки и номера столбца, иначе (если строка чётная) - выводим разность номера столбца и номера строки
4. Если столбец нечётный - выводим номер столбца, иначе (если столбец чётный) - выводим номер строки