Информатика: Никогда не понимала этих задач

gjgjggfasf

24.03.2020 01:35

Информатика

Есть ответ 👍

Никогда не понимала этих задач

152

423

Посмотреть ответы 1

Ответы на вопрос:

DI228MA

Информатика

4,7(40 оценок)

Procedure four(n: integer; var a: a_type); {процедура построения квадрата при n двойной четности: n=4,8,12,} pascalвыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 var i,j,k: integer; p,l: integer; i1,j1,x,y: integer; begin l: =1; p: =n*n; for i: =1 to n do for j: =1 to n do begin a[i,j]: =l; inc(l) {l: =l+1} end; i: =2; while i< =n-2 do begin if i mod 4=0 then j: =4 else j: =2; while j< =n-2 do begin for i1: =0 to 1 do for j1: =0 to 1 do begin y: =i+i1; x: =j+j1; a[y,x]: =p-a[y,x]+1; end; j: =j+4; end; i: =i+2 end; k: =4; while k< =n-4 do begin a[1,k]: =p-a[1,k]+1; a[1,k+1]: =p-a[1,k+1]+1; a[n,k]: =p-a[n,k]+1; a[n,k+1]: =p-a[n,k+1]+1; a[k,1]: =p-a[k,1]+1; a[k+1,1]: =p-a[k+1,1]+1; a[k,n]: =p-a[k,n]+1; a[k+1,n]: =p-a[k+1,n]+1; k: =k+4 end; a[1,1]: =p-a[1,1]+1; a[n,n]: =p-a[n,n]+1; a[1,n]: =p-a[1,n]+1; a[n,1]: =p-a[n,1]+1; end;

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.